@files = grep { /\.log$/ } readdir ($DIR);
foreach my $x (@files){
open READFILE, "......";
open WRITEFILE, ">......";
while(<READFILE>){
chomp;
my @parts = split(/\s/, $_);
print WRITEFILE $parts[1], " ", $parts[0], "\n";
}
close WRITEFILE;
close READFILE;