sub column_segregation_Spec_values  
{
	
    my ($file,$col) = @_;
    use Text::CSV;
    	
  my @array_A2 = ();
  open my $io,'<',$file or die "$!";
  my $csv = Text::CSV->new ({ binary => 1 });
  while (my $row = $csv->getline($io)) {
    push @array_A2, $row->[$col];
  }
  close $io;
  return (@array_A2);                                 

}