#!/usr/bin/perl 
open COL_1 ,"</tmp/col1.txt";
open COL_2 ,"</tmp/col2.txt";
open COL_3 ,"</tmp/col3.txt";
my @arr;
my $i=0;
while(<COL_1>){
     $arr[$i][0] = $_;
     $arr[$i][0] =~ s/\n$//g;
     $i++;
    
    }
$i=0;
while(<COL_2>){
     $arr[$i][1] = $_;
     $arr[$i][1] =~ s/\n$//g;
     $i++;
    
    }
$i=0;
while(<COL_3>){
     $arr[$i][2] = $_;
     $arr[$i][2] =~ s/\n$//g;
     $i++;
    
    }
open MSG,">/tmp/msg_arabic.csv";    
for(my $j=0; $j<$i;$j++)  {
    printf MSG "\"%s\",\"%s\",\"%s\"\n",$arr[$j][0],$arr[$j][1],$arr[$j][2];
}
close NSG;
$| = 1;
#my $rec= changeRecType($dbh, $rid, $newRecType);