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