C:\test>p1
@a = map int rand( 1e16 ), 1 .. 10;;
print total_size \@a;;
496

$s = join ' ', @a;;
print total_size $s;;
216

##</code><code>##

$a = pack 'Q*', @a;;
 print total_size $a;;
136