PERL – Bitwise OR XOR an array

PERL – Bitwise OR XOR an array

[perl]
my @data= (“80″,”80″,”7B”,”30″,”32″,”30″,”38″,”31″,”46″,”30″,”39″);
my $chk;

foreach my $point(@data) {
$chk = $chk^$point; ## XOR each array
}

$chk = hex($chk)|hex(“80”); ## OR the result value

my $chk_hex=sprintf(“%x”,$chk); ## convert result to hex

print “$chk = $chk_hex\n”; ## display both results side by side

[/perl]