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