Select Code to Download

#!/usr/bin/env perl -l

...

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