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