I added the extra "sort" in front of "keys" but there was not change in behavior: the subroutine didn't work as expected.

I don't know if there is something related with my perl version (v5.8.7 built for cygwin-thread-multi-64int) but I will try it on a different computer, too.