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

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