my $size = 2;

die "Uneven list" if @list % $size;

my @LoL;

for my $index ( 0.. $#list ){

  my $rem = $index % $size;

  $LoL[($index - $rem)/$size]->[$rem] = $list[$index];

}