@sorted_keys =
    map { (split /\0/)[2] }
    sort
    map { sprintf "%s\0%03d\0%s", split(/\W+/), $_ } 
    keys %$hash;