my $p = length($max);