my ( @evens, @odds );
my @all = ( \@even, \@odd );
push @{ $all[ $_ % 2 ] }, $_ for split /,/, $scalar;

##</code><code>##

my @all = \my ( @evens, @odds );