1:  for $i (1..10) {
2:      my $tempstring;
3:      for $j (1..10) {
4:          $tempstring .= $array[$j];
5:      }
6:      $final[$i] = $tempstring;
7:  }

##</code><code>##

for my $i (1..10) {.......