Select Code to Download

...
$sth->execute;
...
        $max[$i] = length $$row[$i] if length $$row[$i] > $max[$i];
    }
}