for my $table_row ( @$table_ref ) {
    my @table_cols = map { (defined($_) && /\S/) ? $_ : ' '} @$table_row;

    push @rows, Tr( \@table_cols );
}
$page .= "<b>" . table( {-border => 0, width=> 550}, \@rows) . "</b>" . br();