Select Code to Download

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);