Help for this page

Select Code to Download

Select or download this

use Template::Stash;
use List::Util qw(max);
...
    my $l = max map { length $_ } @$aref;
    join(",$sep", map { sprintf ".%-${l}s (%-${l}s)", $_, $_ } @$aref)
+;
};