while (defined( my $ln= <$readHandle>)) {

    ...
}