my @sorted_indices = sort {$a <=> $b} keys %upload;