my @files = ("testfile", "irgendwas");

for (@files) {
   my $lines = count_lines($_);
   print "$_ hat $lines Zeilen.\n"; # Achte genau auf die Ausgabe
}

sub count_lines {
   my $filename = shift;
   open my $F, "<", $filename or die "Kann $filename nicht oeffnen: $!\n";
   my $counter=0;

   # In einem guten Script wuerde an dieser Stelle local $_; stehen

   while (<$F>) {
       ++$counter;
   }
   return $counter;
}