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