See if your "teacher" likes this method:

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

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

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

say for @e;
[download]

Here's another:

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

my @n = (1..100);

my @o = sort { $a % 2 - $b % 2 } @n;
my @e = splice @o, 0, @o/2, ();

say for @e;
[download]