sub f{ map$_[0]ne$_,@_ } print "Gotcha!\n" if f(1,2);