Select Code to Download

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

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

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