# ...
foreach my $file (@array) { 
# ...