DB<82> p join "+", map { $b =$_ %10; $a = sprintf "----%s--", $b ? "${b}0-" : "${_}0" } 8..12
----80---+----90---+----100--+----10---+----20---