Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek -e'push @$a, $_ for qw( a b c d e ); Dump($a,1); 
+$a=[@$a]; Dump($a,1);'
SV = IV(0x817bc44) at 0x817bc48
...
    MAX = 4                        <-----  5 elements allocated
    ARYLEN = 0x0
    FLAGS = (REAL)