DB<41> sub tst { ($_ > $r) - ($_ < $l) }

  DB<42> $l=3;$r=6
 => 6

  DB<43> print tst(),"\t" for 0..9
 => ""
-1	-1	-1	0	0	0	0	1	1	1