Help for this page
$ perl -wE 'my @ary = qw{a b}; push @ary, "foo" unless grep { "foo" } +@ary; say "@ary"' a b
$ perl -wE 'my @ary = qw{a b}; push @ary, "foo" unless grep { "0" } @a +ry; say "@ary"' a b foo