use strict;
use warnings;
use Data::Dumper;


my %hash;
my $count = 0;

# populating a deeply nested hash
for my $ip (qw <ip1 ip2 ip3>) {
	for my $port ( qw <port1 port2 port3>) {
		for my $status (qw <stat1 stat2>) {
			for my $user (qw <user1 user2 user3>) {
				$hash{$ip}{$port}{$status}{$user} = $count++;  # (just a dummy value for testing)
			}
		}
	}
}

# print Dumper \%hash;

# iterating through the nested hash
for my $nest0 (values %hash) {
	while (my ($port, $nest1) = each %$nest0) {		
		while (my ($status, $nest2) = each %$nest1) {
			for my $freq (values %$nest2) {
				print "$port\t$status\t$freq\n";
			}
		}
	}
}