foreach my $bar (@foo) { $bar++; }