Select Code to Download

#!/usr/bin/env perl
use Modern::Perl;
...
map { push @{($_ % 2 ? \@o : \@e)}, $_ } @n;

say for @e;

#!/usr/bin/env perl
use Modern::Perl;
...
my @e = splice @o, 0, @o/2, ();

say for @e;