Select Code to Download

@array4    

900000001
...
900000011
900000012
500000008

foreach my $id (sort keys %hash) {
             foreach my $network(keys %{ $hash{$id} }) {
              foreach (0..$#array4) {
...
    }

}