perl -MDevel::Peek -MDevel::Size=total_size -wle'
    my @a = qw( a b c );
    Dump(\@a,1);            # Shows no magic
    print total_size \@a;   # 168
    Dump(\@a,1);            # Shows no magic

    $#a=$#a;                # Add magic
    Dump(\@a,1);            # Shows magic
    print total_size \@a;   # 224
'