$ perl -e 'print join " ", map {$_ + 1} 1..4'
2 3 4 5