$ 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

##</code><code>##

$ 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

##</code><code>##

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

   $t=int($a[5]);
   delete $a[5];
   $a[5]=$t;
   say total_size($a[5]);
'
40
16