Select Code to Download

my %hash = $VAR1 = {
          '900000001' => {
                           'Network1' => [
...
                                            ]
                         }
        };

foreach my $key (keys(%hash)) {

    foreach my net (keys %{ $hash{$key} }) {
...
           }
    }
}