$a[0]=1; print total_size( \@a );;
232

$a[1]=1; print total_size( \@a );;
256

$a[2]=1; print total_size( \@a );;
280

$a[10_000_000]=1; print total_size( \@a );;
134217984