my @dirs = grep -d "$directory/$_", @unscont;
my @files = grep ! -d "$directory/$_", @unscont;

##</code><code>##

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