for (1..2) {$wb->Sheets($_)->Delete;}