perl -e 'foreach $index (5..9, 12..18) { print "$index\n" }'