my $left_col = '';
for my $table_row ( @$table_ref ) {
    my @table_cols = map { (defined($_) && /\S/) ? $_ : ' '} @$table_row;
    my $cell_str = join( '<br>', "<b>$table_cols[0]</b>", 
                          @table_cols[1..$#table_cols] );
    if ( $left_col eq '' ) {
        $left_col = $cell_str;
    } else {
        push @rows, Tr([ $left_col, $cell_str ]);
        $left_col = '';
    }
}
$page .= table( {-border => 0, width=> 550}, \@rows);