my $compCs = reduce { $a + $b }
                 map    { hex $_  }
                 ($count, $address =~ m/../g, $data =~ m/../g);