while ( defined( my $line = $handles[ 3 ]->getline ) ) {
  # do something with $line
}