my $number = scalar @{[ glob $name ]};