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

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