sub foo {
    ...
    while (<$fh>) {   # XXX Changes $_
        ...
    }
    ...
}