$ perl -le '@a = (1,2,3); print "fred\n" if @a ~~ 1;'
# prints nothing
$ perl -le '@a = (1,2,3); print "fred\n" if 1 ~~ @a;'
fred