Help for this page

Select Code to Download

Select or download this

$ perl -wE 'my @ary = qw{a b}; push @ary, "foo" unless grep { "foo" } 
+@ary; say "@ary"'
a b

Select or download this

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