This is quite nice, if a bit opaque; I fiddled with it to get a 2-char spacer - as well as the sprintf, I modified the initialisation of @total so:

  my @total= ( $#$avItems, map $_ * 2, 0 .. ($maxCols-1) );
[download]

which seemed to do the right thing, but there may be edge cases I missed.

Hugo