You should have stayed with grep. Try the following:

sub f{
map$_[0]ne$_,@_
}

print "Gotcha!\n" if f(1,2);
[download]