my( $fh, $name ) = @_;

##</code><code>##

while( my( $name ) = $names =~ m/([a-z0-9_]+)/isg ) {
    lookup( \*LOOKUP, $name );
}

##</code><code>##

while($names =~ m/([a-z0-9_]+)/isg ) {
    my $name = $1;
    lookup( \*LOOKUP, $name );
}