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