my $compCs = hex($count);
    foreach my $nibble ($address =~ m/../g, $data =~ m/../g) {
        $compCs += hex($nibble);
    }