push @arr, sprintf '%s%02d', chr( $_ / 13 + 65 ), $_ % 13 for 1..103;