@array  = qw (A B C D E F G);
@array2 = map { sprintf("%s%d",$array[$_],$_+1) } (0..$#array);