my @sorted = sort {
       substr($a, 0, 2) cmp substr($b, 0, 2)
    || @{ $HoA{$a} }    <=> @{ $HoA{$b} }
} keys %HoA;

# @sorted is (a1A, a1B, a2B, a2A)