for my $var (@array) { $var++; }