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