my @files    = grep { !-d } @allfiles ;
my @dirs     = grep {  -d } @allfiles ;