DB<47> sub tst { if ($_>=9) { if ($_>=41 and $_<=56) {1} elsif ($_<=10) {1} } elsif ($_<=6) { if ($_>=5){1} elsif \
($_<=2 and $_>=1) {1} }}

  DB<48> %in = map { $_ => 1 } 1,2,5,6,9,10,41..56

  DB<49> tst != $in{$_} and print "error $_" for 1..190

  DB<50>