my @AoA = map [split], <DATA>;

print join( ', ' , @{ $AoA[ 0 ] } ) , "\n";