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