Select Code to Download

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

my (@files,@dirs);
for( @allfiles ){
...
        push @files,$_
    }
}