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

# replaces this:

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