Select Code to Download

$tmp->[$i] = '0' unless defined $tmp->[$i];

...

$tmp->[$i] = $aref->[$i] if $aref->[$i] gt $tmp->[$i];

for my $aref_acc_num (values %$acc_num) {

for my $aref_acc_key (sort keys %$acc_num) {
    my $aref_acc_num = $acc_num->{$aref_acc_key};