for my $host (keys %hosts) { for my $servicename ( @{$hosts{$host}} ) { for my $protocol (keys %{$services{$servicename}}) { my $portnumber = $services{$servicename}{$protocol}; print "$host $servicename $protocol $portnumber\n"; } } }