note
elwarren
Just to be different, save a step and use each:
<code>
#!/usr/bin/perl
use warnings;
use strict;
my %hash = ();
$hash{"192.168.0.1"}{"randy"} = "thomas";
$hash{"192.168.0.1"}{"ken"} = "samual";
$hash{"192.168.0.2"}{"jessie"} = "jessica";
$hash{"192.168.0.2"}{"terry"} = "ryan";
foreach my $ip (keys %hash) {
while (my ($key, $value) = each %{ $hash{$ip} } ) {
print "$key = $value \n";
}
}
</code>
421382
421382