With the hard coded logic I ended up doing the following

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}{stat
+us}\n\tProtocol - $int{$member}{protocol}\n\n";
}
[download]

It does exactly what I want it to. Thanks again