my $total = 0; $total += $_ for @bytes; $check = ($total & 0xFF) ^ 0xFF;