Select Code to Download

my @final;
my @array = qw(foo bar baz);
...
   }
   push @final, $temp;
}

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

for my $i (0..$#array) {
   my @temp = @array;
   push @final, \@temp;
   undef @temp;
}

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