$ perl -e'my @foo=(1,2,3,4); for $bar (@foo) { $bar++ } print "@foo\n"'
2 3 4 5