use strict;
use Spreadsheet::WriteExcel;
    
my $workbook   = Spreadsheet::WriteExcel->new("demo.xls");

my @PEOPLE = ("BOB" , "SUE", "JOHN" );

foreach (@PEOPLE) { 

my $worksheet_$_ = $workbook->add_worksheet('$_');
}
$NAME = "BOB"
$worksheet_$NAME->write('A2', "$NAME is here");

$NAME= "SUE"
$worksheet_$NAME->write('A2', "$NAME is here");

__END__