Help for this page

Select Code to Download


  1. or download this
    {
 my %lookup;
...

 sub list_index { return $lookup{$_[0]} or -1 } ;
}