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

Guess that answers the first part of your question. :)

Makeshifts last the longest.