...} # loop

my $c = @directories;
...