my @AoA = map [split], <DATA>;
print join(", ", map $AoA[0][$_], 0..$#{$AoA[0]}), "\n";