perl -e" while(<>){@feld = (split/;/, $_); print $feld[8], ';', $_}" <test.txt >test.neu