$packed = pack 'n/(n/a*)', 1..10;;

@array = unpack 'n/(n/a*)', $packed;;

print @array;;
1 2 3 4 5 6 7 8 9 10