Perl 阅读每一行并在表格中显示

我对perl有一个问题。我想要的是读取配置文件并将其显示在表中。这是我的配置文件，看起来像：

VID1
VID2
VID3
VID4

读取配置文件中的所有行后，我希望它显示在表中。我怎样才能做到这一点？我知道我必须使用循环来获取所有线路。对吗？有人能帮我吗？任何帮助都将不胜感激。顺便说一下，我是perl新手。阅读部分不是问题所在。问题在于如何将它们显示到表中

已更新

我希望它像这样等等。顺便说一下，边界是0。我怎样才能把所有这些行读出来，然后像这样打印出来呢

已更新

这是我想要得到的结果。该表处于循环中，在从配置文件读取后显示所有值

试试看

子打印线{
我的$source=shift；
我的$port=shift；
我的$ip=班次；
表格格式=
视频源名称：@您给我的列表看起来像一个表格。如果您想要格式化输出，您至少可以显示它应该是什么样子。我刚刚更新了我的问题@Gene@d.Grudder你想创建一个图像吗？@LeeDuhem不，这只是一个样本输出。很抱歉把它做成一个图像。@Gene我有你更新了我的问题。
sub print_line {
  my $source = shift;
  my $port = shift;
  my $ip = shift;
  format TABLE_FORMAT =
  Name of Video Source: @<<<<<<<<<<<<<<<
                        $source
     Local Port Number: @<<<<<<<<<<<<<<<
                        $port
Destination IP address: @<<<<<<<<<<<<<<<
                        $ip
.
  $~ = 'TABLE_FORMAT';
  write;
}

while (<>) {
  chomp;
  print_line($_, 'example', 'example');
}