my %worksheets;
foreach my $w (sort @ws_names_from somewhere){
   $worksheets{$w} = $workbook->add_worksheet( $w );
}