perl -w part.pl part.csv --header-line=1 --column=3 "--separator=,"