#!perl -paF $_=$F[$i++]