1, 4, 7, A, D, G, J, M, P, S, V, Y

##</code><code>##

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

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