use strict;
use Spreadsheet::WriteExcel;
my $workbook  = Spreadsheet::WriteExcel->new("foo.xls");
my $worksheet1 = $workbook->add_worksheet("alfa");
my $worksheet2 = $workbook->add_worksheet("charlie");
# Select "alfa" thinking "bravo" would insert after
# it... it does not work.  Final order remains
# "alfa, charlie, bravo", not "alfa, bravo, charlie"
# as desired.
$worksheet1->select();
my $worksheet3 = $workbook->add_worksheet("bravo");
$workbook->close();