my $table = $doc1->Tables->Add($word->Selection->Range,$t_row, $t_col);

$table->Rows->{HeadingFormat} = 1;