#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

open my $table, '<', 'table.txt';
open my $values, '<', 'values.txt';

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