my $ra_all = [ [], [] ];
map { push @{$ra_all->[$_ % 2]}, $_ } @array;
my @evens = @{$ra_all->[0]};
my @odds = @{$ra_all->[1]};