如何在Perl中输出文本表?

B. *_*les 10 printing formatting perl

我想输出一个包含四个变量的表,所需格式的示例是:

A confusion matrix

H        |    P     |
-----------------------
$var1    |   $var2  | H
$var3    |   $var4  | P
Run Code Online (Sandbox Code Playgroud)

我遇到的问题是,根据变量中的位数,格式会发生变化,各行都会偏移.我知道这是一个完整的noobie问题,但我从来没有过多地关注输出的格式,这只是我想要正确的一件小事.任何帮助都会很棒,谢谢.