my ($blu, $red, $grn, $ylw) = (@bytes[0], @bytes[12], @bytes[56], @bytes[120]);