my $allref = $dbh->selectall_arrayref($sth, { Slice=>[] });
foreach my $psides (@$allref) {
    $html{'home'} .= $psides->[1];
}