Помогите прочитать файл

Ребята помогите с решением такой задачи: Есть файл в котором к каждой строке фраза. Мне нужно узнать сколько строк начинается с определенной буквы.

[cj]

Самый sloppy метод:

my $l = "a";
if(open(FH, "DB.txt"))
{
  my @lines = ;
  close(FH);
  my @req = grep(/^$l/, @lines);
  my $Size = int(@req);
  print "Найдено строк: $Size";
}

Огромное спасибо за быстрый и рабочий ответ!