for my $letter("A".."B"){
   for my $num(1..5){
           print qq[$letter$num ];
   }
}
# Prints the sequence --
#  A1 A2 A3 A4 A5 B1 B2 B3 B4 B5