@data = map[ map pack( 'C*', map int( rand 256), 0..99 ), 0..99 ], 0..99;;

print total_size \@data;;
1614784