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