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