DB<101> sub in { 
           my ($entity, @array) = @_;
           my %hash;
           @hash{@array}=();
           return exists $hash{$entity};
           }

  DB<102> in(5,0..10)
 => 1

  DB<103> in(42,0..10)
 => ""