foreach my $file (@thefiles) {