my @final;
for my $i (1..10) {
  my $temp_string = "";
  for my $x (@array) {
    $temp_string .= $x;
  }
  push @final, $tempstring;
}