$packed = pack 'n/(n/a*)', 1..9;; @array = unpack 'C*', $packed;; print join ', ' , @array;;