Select Code to Download

use strict;
use warnings;
...
       map { $_ % 2 ? ( $high --, $low ++) : ( $low ++, $high --) }
       1 .. $length / 2;
}

hog ace big gog fig cat dog egg

sub reOrder
{
...
       1 .. $length / 2;
    return @slice, $low == $high ? $low : ();
}