sub column_segregation
{
    my $o=$_[0];
    
    my $csv = Text::CSV->new ({ binary => 1 });
while (my $row = $csv->getline($io)) {
        push @array_A2, $row->[$o];
}
   return (@array_A2);                                     
}