##

my $sth = $dbh->prepare(qq/ SELECT * FROM table /);
$sth->execute;

my @row;
while (my $row = $sth->fetchrow_arrayref) {
    my @cell;
    foreach my $cell ( @{$row} ) {
        push @cell, { 'cell' => $cell };
    }
    push @row, { 'cell' =>  \@cell};
}
$html->param(
    'row'  =>  \@row
);

$sth->finish;