my $maxsize = 0;
map {chomp; $maxsize = ($maxsize>length)?($maxsize):(length)} @lines;