our $PADDING = 2; # config, so probably belongs at top of file

my @phrases = ( keys %lists, map { @{$_} } values %lists );
my @lengths = map { length($_) } @phrases;
@lengths      = sort { $b <=> $a } @lengths;
my $longest  = shift @lengths;

return $longest + $PADDING;