my $i = 1;
while ((my $line = <INHANDLE>) || $i--) {}