my ($file1,$file2,$col1fromfile1, $col2fromfile2) = @ARGV;