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