use strict;
use warnings;
use Data::Dumper;

my $entries = [];
push(@{$entries}, { a => 1, b => undef});
foreach (my $i=0; $i<scalar(@{$entries}); $i++)
{
    print Dumper $entries->[$i];
}