use strict; use warnings; my $ref = [ [ { 'BERICHT' => 'test', 'IP' => '127.0.0.1', 'NAAM' => 'test' }, { 'BERICHT' => 'test', 'IP' => '127.0.0.1', 'NAAM' => 'Htbaa' } ], { 'rm' => 'start', 'dummy' => '' } ]; foreach my $outer (@$ref) { if (ref($outer) eq "HASH"){ print "$outer->{rm}
\n"; }else{ print "". $_->{'NAAM'} . "
\n" for @$outer; } } #### test
Htbaa
start