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

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