#!/usr/bin/env perl
use Modern::Perl;

my @n = (1..100);
my @e;
my @o;

map { push @{($_ % 2 ? \@o : \@e)}, $_ } @n;

say for @e;