my $wsheet = $wbook->Worksheets(1);
my $last_row_from_OLE = $wsheet->{UsedRange}->Rows()->Count();
my $last_col_from_OLE = $wsheet->{UsedRange}->Columns()->Count();
my $range = $wsheet->Range($wsheet->Cells(1,1), $wsheet->Cells($last_row_from_OLE, $last_col_from_OLE) );
$range->Copy();
my $xlPasteColumnWidths = 8;
$range->PasteSpecial({Paste => $xlPasteColumnWidths});

##</code><code>##

foreach my $tab_name (@tab_names[1..(scalar  @tab_names - 1)]){
   my $wsheet2 = $wbook->Worksheets->Add( {after => $wbook->Worksheets($wbook->Worksheets->{count})} );
   $wsheet2->{Name} = $tab_name;
   $wsheet2->Paste();
}