in reply to "Useless use of a constant" in grep block?
push @ary, "foo" unless grep { "foo" } @ary; [download]
is a funny way to say
push @ary, "foo" if 0 == @ary; [download]
so it is just TIMTOWTDI ;-)