my $count =0;
    foreach my $column (@{$AoA[$i]}){
            $count ++;
            }