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