...

my %counts;
for my $base (@file1) {
   my $re = qr/^\Q$base\E(\.|\z)/;
   $counts{$base} += grep /$re/, @file2;
}

...