急请高手指点这段代码有什么错误，不胜感谢

急请高手指点这段代码有什么错误，不胜感谢
相关图像上载：（JPG 格式， 122 K）


作者提供的相关的附件（大小：25 K）

为了对文件的数据进行+和-0.5后进行输出（文件见附件），编写了如下代码：

open(YEAST_A1_MASSLIST, "J:/mass list/more than 170K_1.txt")||die "Cannot open the file:$!";
@array_masslist=<YEAST_A1_MASSLIST>;
foreach $masslist (@array_masslist)
{chomp $masslist;
$masslist_1=$masslist - 0.5;
$masslist_2=$masslist + 0.5;
print "$masslist_1,\t masslist_2, \n";
}
close (YEAST_A1_RAWDATA);

运行输出时显示如“1489.168294, ,masslist_2, ",（如截屏） 很奇怪为什么$masslist_2=$masslist + 0.5没有计算，返回一个数值？请高手指点，因为本人初学perl, 怡笑大方了， 还望大家不赐吝教，不胜感谢！！！
[img][/img]

[img]C:\DocumentsandSettings\Administrator\MyDocuments\Masslist.JPG[/img]

   

晕，谢谢anthony兄的帮助，[CCB]27[/CCB]， 先怎么看都没看出来，奇了怪了。。。。。。