I have a csv file and i am seprating out its column , the function defined for it is

 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);                                 

}
[download]

Now this function will return seperated columns as array . Now since the number of columns are unknown , I wish to put them in double dimension array , as one column will occupy one row and so on , how can i do it

please don't suggest to use split , because I can't because there can be a user given comma . thanks in advance