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