use strict;
use warnings;

my @array = (1 .. 8);

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


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