sub Test { my @bytesAry = (17, 2, -128, 10, 0, 0, 0, -56); for (my $i=0; $i<scalar(@bytesAry); $i++) { print"/n" if ($i % 10 == 0) ; printf("%02X ", (0xff & $bytesAry[$i])); } print"/n"; exit 1; }