push @{ $_ & 1 ? \@a : \@b }, $_ for 1 .. 10;

print "@a\n@b";

1 3 5 7 9
2 4 6 8 10


##</code><code>##

print prototype( 'CORE::push' );

\@@