my @array;
for my $l ( 'A'..'H' ) {
  push @array, map sprintf("$l%02d", $_), 1..12;
}