#!/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;