You can use map inside a foreach loop as well:

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 $key1 ( keys %hash ) {
    map { print $hash{$key1}->{$_}, "\n" } keys %{$hash{$key1}};
}
[download]