foreach my $file (@files) { $count++; }