perl语言学习第一篇：将文本perl.txt内容读入，再格式化输出（菜鸟小试牛刀）

实习较闲，自学perl，刚看完菜鸟教程，小试牛刀

下面的程序主要是读入perl.txt文件

cat perl.txt
4          karsa
1          uzi
3          xiaohu
2          ming
5          langx

然后格式化输出如下字样

--------------------
id     name
--------------------
1      uzi
2      ming
3      xiaohu
4      karsa
5      langx

代码如下（小试牛刀，可能不是最合适的方法，欢迎批评和改进）

#!/usr/bin/perl
use warnings;
use strict;
$~="table_header";             #格式头
write;
open(DATA,