for my $i (0..$#array) {
   my @temp = @array;
   push @final, [@temp];
   undef @temp;
}