use strict; print $.,"\n",my @f=<>;