Your hash doesn't have any three letter keys, and your substr doesn't return three letters. Perhaps you meant:

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