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

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

use Inline::Files;

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

__TABLE__
xanmn_chr09_0114-xanmn_chr09_0114 3346
xanmn_chr09_0129-xanmn_chr09_0129 3358
xanmn_chr09_0116-xanmn_chr09_0116 3348
xanmn_chr09_0127-xanmn_chr09_0127 3354
__VALUES__
3346
1933
1371
1448
2762
1395

##</code><code>##

xanmn_chr09_0114-xanmn_chr09_0114