MLINK protocol analysis, CRC ?

#!/usr/bin/perl
use strict;
use warnings;

use Digest::CRC qw(crc8);

my @map = (0xf1, 0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9, 0x19, 0x99, 0x59,
           0xd9, 0x39, 0xb9, 0x79, 0xf9, 0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65,
           0xe5, 0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5, 0x0d, 0x8d, 0x4d,
           0xcd, 0x2d, 0xad, 0x6d, 0xed, 0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d,
           0xfd, 0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3, 0x13, 0x93, 0x53,
           0xd3, 0x33, 0xb3, 0x73, 0xf3, 0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b,
           0xeb, 0x1b, 0x9b, 0x5b, 0xdb, 0x3b);

while(<>) {
    chomp;
    #my($chksum, $idx, $data, $chan) = (/^(..) -- (....): (.. .. .. .. .. .. ..) \((..)\)/);
    my($data, $chksum, $chan, $idx) = (/^(.. .. .. .. .. .. ..) -- (..) \((..)\s*-\s*(....)/);
    next if(! defined $idx);
    my @vals = map {hex($_)} split(/ /, $data);
    my $valstr = join("", map {chr($_)} @vals);
    $chksum = hex($chksum);
    $chan   = hex($chan);
    my $tstcrc = Digest::CRC::crc($valstr, 8, $map[$idx], 0, 1, 0x31, 1, 0);
    printf "$data: %02x : %02x\n", $chksum, $tstcrc;
}

my @chan_order = (
21, 59, 35, 43, 9, 65, 33, 71, 7, 77, 9, 41, 31, 45, 19, 71, 15, 51, 33, 47, 11, 63,
17, 73, 13, 57, 39, 59, 3, 65, 13, 75, 5, 79, 5, 55, 23, 61, 31, 79, 37, 63, 11, 55,
23, 45, 3, 77, 25, 57, 19, 67, 37, 49, 27, 75, 15, 67, 17, 53, 35, 51, 29, 53, 7, 73,
41, 69, 29, 61, 27, 43, 21, 69, 25, 47, 39, 49);

crc -- index: data (chan#)

sub crc8_le {
    my($_result, @d) = @_;
    my $poly = 0x8c;  #x^9 + x^5 + x^4 + 1
    my $result = 0;
    foreach (0 .. 7) {
        $result = ($result << 1) | ($_result & 0x01);
        $_result >>= 1;
    }
    foreach (@d) {
        $result = $result ^ $_;
        foreach my $j ( 0 .. 7) {
            if($result & 0x01) {
                $result = ($result >> 1) ^ $poly;
            } else {
                $result = $result >> 1;
            } 
        }       
    }       
    return $result & 0xff;
}