Select Code to Download

my @chopped_array = map { $_ >> 1 } @original_array;
my %result;
...
        $result{ $original_array[$i1] } = $original_array[$i2] unless 
+$chopped_array[$i1] & $chopped_array[$i2];
    }
}

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