P:\test>perl -le"$_='old value';@a=1..10; for(@a){ $_++ }; print;"
old value