I'm in a good mood.

@array  = qw(A B C D E F G);
@array1 = qw(1 2 3 4 5 6 7);
@array2 = map { my $c=$_;map "$_$c", @array } @array1;
[download]

Hope this helps.

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1