head -1 ./current.csv |perl -ane '$i = 0; s/\,/" ".$i++."\n"/eg; print;'