#!perl -nla
???map$$_=++$i,@F:print$$_