チェックサム計算用コード

############################################
# チェックサム計算用コード
############################################
#!/usr/bin/perl
 
my @list = (
  0x5A, 0xA5, 0x02, 0x03, 0x01, 0x03, 0xE8, 
);

my $k = 0x00;
foreach(@list) {
  $k = $k ^ $_;
}

printf("%X$/", $k); # 0x14