foreach my $member (keys %int){ print "$member: \n\tIP - $int{$member}{ip}\n\tOK? - $int{$member}{ok}\n\tMethod - $int{$member}{method}\n\tStatus - $int{$member}{status}\n\tProtocol - $int{$member}{protocol}\n\n"; }