> perl -e '@arr = (1,2,3);$_++ foreach @arr;print @arr,"\n"'
234