my $file;
foreach $file (@thefiles)  {