my @array = qw(a b c d e);
my @new_array;

for my $variable ( 1 .. 5) {
    push @new_array, "$_ $variable" for @array;
}
print "$_\n" for sort @new_array;

##</code><code>##

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