sub thingy {
    # blah blah blah...
    local $_;
    while (<$fh>) {
        chomp;
        # do stuff here...
    }
    # more stuff here...
}

##</code><code>##

while (defined(my $row = <$fh>)) {
    chomp $row;
    # stuff here...
}