Select Code to Download

use ihb::List::Util qw/ group transpose /;
use List::Util qw/ max sum /;
...
    local $" = ' ' x $padding;
    print "@$_\n" for transpose(@cols);
}