Select Code to Download

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

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.

             {
             chomp;
...
           }
         }