$VAR1 = { '1' => { '1' => { 'EMail' => 'norbert@thnwb.com', 'Name' => 'Norbert Bodkin' }, '5' => { 'EMail' => 'sue@thnwb.com', 'Name' => 'Sue Soup' } }, '2' => { '3' => { 'EMail' => 'max@thnwb.com', 'Name' => 'Max Grappler' } } }; my %Status = %$VAR1; my $status; for $status (keys %Status) { for (keys %{ $Status{$status} }) { print $Status{$status}{$_}{'Name'}, br; } }