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