for my $filename (@files)