$self->{entries} = [];
push(@{$self->{entries}}, { a => $a, b => $b});
my $entries = '';
foreach (my $i=0; $i<scalar(@{$self->{entries}}); $i++)
{
    ...
}