Select Code to Download

my %records;
open my $fh, "<", $file1;
/^(\S+)\s/ and $records{$1}=1 while <$fh>;
close $fh;

for my $file (@filelist) {
    open my $fh01, "<", $file;
    /^(\S+)\s/ and defined $records{$1} and print while <$fh01>;
    close $fh01;
}