{
 my %lookup;
 
 sub _init_lookup_hash {
   %lookup;
   for my $i (0..$#_) {
     $lookup{$_[$i]} = $i unless defined $lookup{$_[$i]};
   }
 }

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