my @arry = (1, 2, 3, 4);
++$_ for @arry;
print "$_\n" for @arry;