@heh = map {s/^(\d+):(.*)/$2: $1/; $_}
       sort
       map {sprintf "%10d:$_"} keys %hmm;