I usualy create my AoH for HTML::Template like this:

while ($p=$sth->fetchrow_hashref) {
  push(@arr,{ # create anonymous hash   
              aleph=>$p->{foo},
              bet=>something($p->{bar}),
              baz=>"etc"});
}
[download]