in reply to Perl range
perl -e 'print abs,"\n" for -9..-5, 12..18' [download]
perl -le 'for $i (map abs, -9..-5, 1..3) { print $i }'