open my( $fh ), '<', $$lnameref;
    while( my $_ = <FH> )

##</code><code>##

 open my( $fh ), '<', $$lnameref;
    while( my $_ = <$fh> )