$ perl -MDevel::Size=total_size -E'
   $a[5]="5678";
   say total_size($a[5]);

   $x=int($a[5]);
   say total_size($a[5]);
'
40
44