my $i = 1;
while ((my $line = <INHANDLE>) || $i--) {
   dfkahsfkasdkfjhasdklfa;
   dsfjasd jf;
   lsdfj asdljf;
}