Select Code to Download

my @array = qw(a b c d e);
my @new_array;
...
    push @new_array, "$_ $variable" for @array;
}
print "$_\n" for sort @new_array;

    push(@result,$new[$k]);
    push(@result,$test);
    # to
    push @result , "$new[$k] $test";