use vars '%boolhash';
@boolhash{ qw(7000 7777 7778
              3886200 2200 8488
              3406 9100 29389988
              7688 5000 20 3408
              3404 7648)
         } = ();

sub mytest {
    not exists $boolhash{ $_[0] };
}