my @nums = (0 .. 99);
my $odd_even = [ ];

push @{ $odd_even->[$_ & 1] }, $_ for (@nums);

##</code><code>##

my @even = @{ $odd_even->[0] };
my @odd  = @{ $odd_even->[1] };