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