while ( <$handles[ 3 ]> ) {
# do something with last line read
}
####
while ( defined( my $line = $handles[ 3 ]->getline ) ) {
# do something with $line
}
####
frobnicate( $handles[ 3 ]->getline ) until $handles[ 3 ]->eof;
####
my $tmp = $handles[ 3 ];
while ( <$tmp> ) {
# go crazy
}