Select Code to Download

1,ABC,X,1.203000e+02
1,ABC,Y,7.830000e+00
...
.
.
.

while (<NEWDATA>){ # where NEWDATA points to a file with the comma del
+imited data
    $currLine = $_; # current, comma-delimited line
...
    print OUT "$element\n";
}

1
2
3
5