DB<111> $p = '|----+----'

  DB<112> p map { $a=$p; substr $a,0,length($_),$_ ;$a} "", 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---+----

  DB<113> p map { $a=$p; substr $a,0,length($_),$_ ;$a} "",map $_*10, map {1..9, $_*10} 1..2
|----+----10---+----20---+----30---+----40---+----50---+----60---+----70---+----80---+----90---+----100--+----10---+----20---+----30---+----40---+----50---+----60---+----70---+----80---+----90---+----200--+----

  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---+----