And of course another mundane way of doing this (not as quick or ideomatic as the map solution) is as follows:

@array  = qw (A B C D E F G);
@array1 = qw (1 2 3 4 5 6 7);
foreach $x (0..$#array1)
{
   foreach $y (0..$#array)
   {
      push(@array2, $array[$y].$array1[$x]);
   }
}
[download]