Select Code to Download

for my $let (keys %hash) {
    for my $num (keys %{$hash{$let}}) {
...
        }
    }
}

output_hash(\%data, []);

...
        pop @$item;
    }
}