use POSIX; while(){ chomp; ($l, $r)=split/ /; printf "[%2d %2d] ", $l, $r; for $i(-9..10){ $i or print "|"; printf "%2d ", floor (($i - $l ) / ($r - $l +1 )) <=> 0 } print "\n" } __DATA__ 1 4 2 5 3 7 0 3 -1 5 -8 -2