while (<$fh>) {
    ...
}