foreach my $network (keys %urls) {
	foreach my $key (keys %$network) {
		print "$key<br/>";
	}
}