If you'd rather not mess with tied hashes and all the magic surrounding them, you could allow them to remain stored out of order and just process them in order. Replace:

foreach $key (keys (%data)){
[download]

With:

foreach $key (sort keys (%data)){
[download]

... for example.