ich könnte mir vorstellen, dass du das brauchst, weil du eine tabelle ausgeben willst.
falls ja, nimm einfach Text::Table, das nimmt dir das zählen ab.