[_m3]

isdir()
-d
siehe auch perldoc -f -d

foreach()

my @array = qw{ a b c d e f };
for (@aray) {
    print "$_\n";
}

Output: abcdef