use constant PADDING => 2;

my $col_width = PADDING + (
    sort {
        $b <=> $a
    } map {
        length
    } keys %list, map {
        @$_
    } values %lists
)[ 0 ]; ## Longest key or value