my @filelist = <*>;
my $nfiles = scalar @filelist;