Help for this page
my ($blu, $red, $grn, $ylw) = (@bytes[0], @bytes[12], @bytes[56], @byt +es[120]);
my ($blu, $red, $grn, $ylw) = ($bytes[0], $bytes[12], $bytes[56], $byt +es[120]);