my @key_hash = sort {
    $key_hash{substr($a,3)} cmp $key_hash{substr($b,3)}
} keys %key_hash;