my @sorted_keys = sort { $a=~tr/d// <=> $b=~tr/d// } keys(%hash);