foreach my $network (values %urls) { foreach my $key (keys %$network) { print "$key
"; } }