my @chopped_array = map { $_ >> 1 } @original_array;
my %result;

foreach my $i1 (0..$#chopped_array) {
    foreach my $i2 ($i1..$#chopped_array) {
        $result{ $original_array[$i1] } = $original_array[$i2] unless $chopped_array[$i1] & $chopped_array[$i2];
    }
}

##</code><code>##

my %hash = map { ($_ >> 1) => 1 } @original_array;
my %result;
foreach (keys %hash) {
    $result{($_ << 1) + 1} = ~($_ << 1) if $hash{ ~$_ }; 
}