Select Code to Download

use Perl6::Junction qw/all/;

...
if ( $sUnpackedCDPcap ne all($sPhoneCapabilityCode,$s3905CapabilityCod
+e) ) {
    print "Bingo!\n";
}

        Rate junct regex   raw  hash
junct  104/s    --  -79%  -87%  -95%
regex  504/s  386%    --  -38%  -74%
raw    806/s  678%   60%    --  -58%
hash  1932/s 1763%  284%  140%    --

#!/usr/bin/env perl
use warnings;
...
        die "junct: $found" unless $found==9999;
    },
} );