for my $letter ('A'..'H') {
  for my $num (1..12) {
    push(@masterarray, sprintf("$letter%02d", $num));
  }
}
print scalar(@masterarray)," elements\n";

##</code><code>##

for my $letter ('A'..'H') {
    push(@masterarray, $letter.'01'..$letter.'12');
}

##</code><code>##

# The golfiest
my @masterarray = map { $_.'01'..$_.'12' } 'A'..'H';