#my hack to only return the list of sheet names if($self->{just_find_sheet_names}) { my @sheets = map { $_->att('name'); } $files->{workbook}->find_nodes('//s:sheets/s:sheet'); $workbook->{Worksheet} = \@sheets; $workbook->{SheetCount} = scalar(@sheets); return $workbook; }