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

##</code><code>##

Scalar value @bytes[0] better written as $bytes[0] at -e line n.
Scalar value @bytes[12] better written as $bytes[12] at -e line n.
Scalar value @bytes[56] better written as $bytes[56] at -e line n.
Scalar value @bytes[120] better written as $bytes[120] at -e line n.


##</code><code>##

             {
             chomp;
             my $dataout = $_;

             my %humanize;
             @humanize{ qw/ Blue Red Green Yellow / } = ( unpack 'x252' . 'H2' x 200, $dataout )[ 0, 12, 56, 120 ];


             foreach my $index ( qw/ Blue Red Green Yellow / ) {
                  if ( $humanize{ $index } eq '01' ) { syslog( 'warning', "Color value bad $humanize{$index}"); $status_code = 1; }
           }
         }