$ perl -le '
-> @list = map { ($_ - 1, $_, $_ + 1) } 3, 6, 9;
-> print qq{@list};'
2 3 4 5 6 7 8 9 10
$