or download this
DB<111> $p = '|----+----'
...
DB<121> p map { $a=length; $p =~ s/.{$a}/$_/r} "", map {$b=$_%10; $b
+ ? $b*10 :$_*10 } 1..22
|----+----10---+----20---+----30---+----40---+----50---+----60---+----
+70---+----80---+----90---+----100--+----10---+----20---+----30---+---
+-40---+----50---+----60---+----70---+----80---+----90---+----200--+--
+--10---+----20---+----