while (my $theLine = <INPUT>) {