sub reOrder { my $length = shift; my $low = 0; my $high = $length - 1; my @slice = map { $_ % 2 ? ( $high --, $low ++) : ( $low ++, $high --) } 1 .. $length / 2; return @slice, $low == $high ? $low : (); }