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