sub foo {
    ...
    local $_;
    while (<$fh>) {
        ...
    }
    ...
}