( $i in (1,2,3..9,-12) ) && do { print "$i is a 1, 2, 3, 4, 5, 6, 7, 8, 9, or -12\n"; }