in reply to while loop hanging

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