# (merging previous post)
my @sorted_indices = sort {$a <=> $b} keys %upload;
my %lookup_hash;
@lookup_hash{@sorted_indices} = 0 .. $#sorted_indices;