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