Select Code to Download

my %with_key;
foreach my $first_key (keys %all_files) {
...
    push @{$with_key{$second_key}}, $first_key;
  }
}

my %total;
foreach my $subhash (values %all_files) {
...
    $total{$key} += $subhash->{$key};
  }
}