Ummm, in your code, you loop over a list of keys returned by the keys function. This function doesn't guarantee any specific order of retrieval.

You sorted a list of the keys before the loop, but you didn't use that list in the for loop. Perhaps you meant something like:

  for my $key (@keys) {
[download]