sub tst_push(\@@) { } #### push(1 ? @a : @b, 'asdf'); push(1 == 0 ? @a : @b, 'asdf'); #### sub apush($@) { my $a = shift; push @$a, @_; } #### apush($cond>0 ? \@a : \@b, $elem);