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;