Bravo! I hadn't thought about doing it with sort.

I came up with:

use List::Util qw|max|;
...
my $maxsize = max(map {chomp; length} @lines);
[download]