c:\@Work\Perl>perl -wMstrict -le
"use List::MoreUtils qw(part);
 ;;
 use Data::Dump qw(dd);
 ;;
 my @test = qw(1 1 2 2 3 3 4 4 5 5 6 6 7 7);
 ;;
 my $i = 0;
 my @unzip = part { $i++ % 2 } @test;
 dd \@unzip;
 ;;
 @test = qw(9 9 9 8 8 8 7 7 7 6 6 6 5 5 5 4 4 4 3 3 3);
 $i = 0;
 @unzip = part { $i++ % 3 } @test;
 dd \@unzip;
"
[[1 .. 7], [1 .. 7]]

[
  [9, 8, 7, 6, 5, 4, 3],
  [9, 8, 7, 6, 5, 4, 3],
  [9, 8, 7, 6, 5, 4, 3],
]