foreach my $file (readdir DIR)

##</code><code>##

foreach my @file (readdir DIR)