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