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