Select Code to Download

my %vals = map { $_ => 1 } <FILE2>;
print $_->[0] for grep { $vals{$_->[1]} } map { [ split / / ] } <FILE1
+>;

#!/usr/bin/env perl -l

...
1448
2762
1395

xanmn_chr09_0114-xanmn_chr09_0114