foreach $ex_del(@excel_del_pages)
{
for($i=1;$i<=$worksheet_count;$i++)
{
$sheetname2= $Books->Worksheets($i)->{name};
print $sheetname2;
if($sheetname2->{name} eq $ex_del)
{
$Books->Worksheets($i)->Delete();
}
}
}