while(my @row = $sth->fetchrow_array()) { if( $max0 < length($row[0]) ) { $max0=length($row[0]) } if( $max1 < length($row[1]) ) { $max1=length($row[1]) } if( $max2 < length($row[2]) ) { $max2=length($row[2]) } }