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