Select Code to Download

use strict;
use warnings;
...
        ++$element;
    }
}

Before: 1 2 3 4 5 6 7 8
After: 2 3 4 5 6 7 8 9

use strict;
use warnings;
...
sub clobberDefVar {
    $_ = 0;
}

Before: 1 2 3 4 5 6 7 8
After: 0 0 0 0 0 0 0 0