@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;