foreach (@files) {
my $file = $_;