my $num_of_files = scalar @{[<*>]};