my @x = unpack("C*", "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 ");
my $sum = 0;
for(@x){$sum += $_;} # 2278
$sum %= 256; # 8-Bit-Überträge rausrechnen
print $sum; # 230