my( @dirs, @files );
push @{ -d "$directory/$_" ? \@dirs : \@files}, $_ for @unscont;