sub column_segregation_Spec_values   columns of csv file
{
	$column_number=$_[0];     c
	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");      
	
	 push @array_A2, $columns[$column_number];
    }
   return (@array_A2);