Select Code to Download

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @arr = qw{ zero one two three four };
...
zero two three four 
0 1 2 3
zero two three four

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @arr = qw{ zero one two three four };
...
@arr bad slice     : zero two three four 
New @newidx        : 0 1 2 3
@arr good slice    : zero two three four