use strict; my %urls; $urls{'networkid'}{'someidIdontknow'}='somevalue1'; $urls{'networkid2'}{'someidIdontknow2'}='somevalue2'; $urls{'networkid3'}{'someidIdontknow3'}='somevalue3'; foreach my $network (keys %urls) { foreach my $key (keys %{$urls{$network}}) { print "$network\t$key\t$urls{$network}{$key}\n"; } }