perl -e "@in = (1..5); @out = grep { $_++ } @in; print qq{@in}"