my ($file1, $file2, $file3, @cols) = @ARGV;