my @AoA = map{ [split] } <DATA>;
print join "\n", map{ join ',' @$_ } @AoA;