my @files = glob "$fpcdir/$project/*fpc";
foreach my $file ( @files ) {
   open FH, "<$file" or die $!;
   while (<FH>) {
      # inner loop unchanged...
   }
   close FH;
}