perl_pra 小程序

chomp(my $input =<STDIN>);

程序打开后要求输入一个电话号码，将事先编好的文本文件（表格式的txt文本，元素由逗号分隔，每行都含电话号码、名称、email、备注，一条信息一行）导入数组，在数组中寻找该号码，若有，则显示与号码关联的所有信息；若没有，则提示输入新的联系人信息，并放入文本文件的最后。完毕后跳回程序开头。
perl_pra2　有几个地方写得比我简洁多 xxx

open FILE, "<$file" or die "can't open $file";
my @lines = <FILE>;
close FILE;

for (@lines)

while (!$sign);
read xml