my @array=("\x00", "\x01", "\x02"); print join q{, }, map { ord } @array; print "\n"; __END__ 0, 1, 2