>perl -wMstrict -le
"use List::MoreUtils qw(part);
 use Data::Dumper;
 ;;
 my $i;
 my @parts = part { ++$i % 2 } 1 .. 8;
 ;;
 print Dumper \@parts;
"
$VAR1 = [
          [
            2,
            4,
            6,
            8
          ],
          [
            1,
            3,
            5,
            7
          ]
        ];