Willst Du das innerhalb von Perl lösen oder willst Du das mit SQL lösen.

Wenn Du das mit SQL lösen willst, musst Du das mit MAX und CHAR_LENGTH für alle drei Spalten machen.

Wenn Du das mit Perl lösen möchtest, dann wäre es wichtig zu wissen, wie Deine Daten vorliegen.