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();
}