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