sub column_segregation{ 
$column_number=$_[0];    
	my $size;
	my @array_A1=();
	my @array_A2=();
	my $column_separator = ",";        
        $column_number--;                 
	my $file="Working_On.csv";      
	open(FILE,"<","$file");           
	my @lines=<FILE>;                 
	close FILE;

	foreach my $line (@lines)
   {
	my @columns = split(/$column_separator/,"$line");      
	@array_A1= split (/$column_separator/,"$columns[$column_number]");   
	@array_A2=(@array_A2,@array_A1);                                     
    exit}
   return (@array_A2);                                    
}