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

##</code><code>##

7:      my $tempstring;

##</code><code>##

7:     undef $tempstring;