perl -le 'print for reverse(5 .. 9), 12 .. 18;'