while(<INFILE>){
  my $line = $_;
  # do stuff with $line

# but do one of these instead

while(<INFILE>){
  # do stuff with $_

# or

while(my $line = <INFILE>){
  # do stuff with $line