Select Code to Download

my @array = 1 .. 1_000_000; 
## Note the above doubles mem. consumption.
...
}; 
# and truncate it.
$#array = --$d;

#! perl -slw
use strict;
...
P:\test>371457-mem
Check ram before ripple 21,844 kb
Check ram after ripple  21,860 kb

#! perl -slw
use strict;
...
            s/iter move_splice simple_grep
move_splice   1.66          --         -8%
simple_grep   1.52          9%          --