Select Code to Download

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

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

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