my $dir;
for $dir (@...)...