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