c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"print qq{perl version $]};
 ;;
 my (@foo, @bar);
 my $fooish = 1;
 push $fooish ? \@foo : \@bar, 'quux';
 dd \@foo;
 dd \@bar;
"
perl version 5.014004
["quux"]

[]