Select Code to Download

foreach my $key ( keys %hash ) { 
  while ( my ( $subkey, $value ) = each %{ $hash{$key} } ) { 
...
  }
  delete $hash{ $key };
}

#!/usr/bin/perl
use strict;
...
say Dumper \%hash;

__END__

$VAR1 = {
          'keyA' => {
...
                    }
        };