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

   $t=int($a[5]);
   undef $a[5];
   $a[5]=$t;
   say total_size($a[5]);
'
40
36