my @Tr=();
while ( $row = $st->fetchrow_hashref )
    push @Tr, td([ font({-color=>'Lime'},$row->{host}),
                   '->',
                   font({-color=>'Cyan'},$row->{xronos}),
                   '->',
                   font({-color=>'Yellow'},$row->{game})
                 ]);
}
print table(
          Tr(\@Tr)
      );