my (@evens, @odds);
my $ra_all = [ \@evens, \@odds ];
map { push @{$ra_all->[$_ % 2]}, $_ } split /,/, $scalar;