my @final;
my @array = qw(foo bar baz);

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