$x = ['20110106', map( rand( 1e5 ), 1..4 ), int( rand 1000 ) ];;
print total_size $x;;
440

@x = @{ $x };;
print total_size \@x;;
440