...
for my $filename (@file) {

   next unless $filename =~ /^\d+/;

   if(grep { %seen{$_} =~ $filename} keys %seen) {
     print " $filename\n";
    } else {
      print "$filename is not in array\n";
    }
}