Comment puis-je générer une table de texte en Perl?

Je veux en sortie un tableau contenant quatre variables, un exemple du format de votre choix est:

A confusion matrix

H        |    P     |
-----------------------
$var1    |   $var2  | H
$var3    |   $var4  | P

Le problème que j'ai, c'est que selon le nombre de chiffres dans les variables, les changements de format et les différentes lignes sont décalées. Je sais que c'est un noobie question, mais je n'ai jamais eu à payer trop d'attention pour le format de sortie avant, c'est juste une de ces petites choses que je veux obtenir le droit cette fois. Un peu d'aide serait super, merci.

source d'informationauteur B. Bowles