# This is perl, v5.8.7
my @a = (1,2,3);
my @b = (4,5,6);
push 1==1 ? @a : @b, "foo";
print "a=@a b=@b\n";

##</code><code>##

push 1==0 ? @a : @b, "foo";