my @a    = (1, 2, 3, 4, 3, 5, 3, 34);
my @find = (4, 3, 53);

my @out  = grep { -1 == index "@find", $_ } @a;