$maxlength = length(tied(%hash)->longestvalue());