use constant PADDING => 2; my $col_width = PADDING + ( sort { $b <=> $a } map { length } map { ref eq 'ARRAY' ? @$_ : $_ } %lists )[ 0 ]; ## Longest key or value