while(defined(my $i = <FILE>))