# Loop method from above:
foreach my $sheet ( in $xls->Worksheets ) {
    print $sheet->Name, $/;
}

# one line to get array of names:
my @names = map { $_->Name } in $xls->Worksheets;