use strict;
use warnings;

my @array = (1 .. 8);

print "Before: @array\n";
nastyModifyParamsSub (@array);
print "After: @array\n";


sub nastyModifyParamsSub {
    for (@_) {
        ++$_;
        clobberDefVar ();
    }
}


sub clobberDefVar {
    $_ = 0;
}