while ( <fh> ) {
 ($a,$b)=split/,/;
    push @AoA, [ split ];
 }