{
  use integer;
  foreach my $i1 ( 0 .. $#LongListOfIntegers) {
    my $v = $LongListOfIntegers[ $i1 ];
    foreach (@LongListOfIntegers[ $i1+1 .. $#LongListOfIntegers]) {
      if (($v & $_) == 1) {
        $MatchedIntegers{$v}{$_}=();
        $MatchedIntegers{$_}{$v}=();
      }
    }
  }
}