Use of uninitialized valu

Use of uninitialized valu
相关图像上载：（JPG 格式， 186 K）


写了一段代码，如下：
#!/usr/bin/perl -w

open (NEWTXT, "C:/Documents and Settings/Administrator/My Documents/新建文本文档.ascii")||die "Cannot open this file:$!";
open (OUTPUT, ">C:/Documents and Settings/Administrator/My Documents/输出.ascii")||die "Cannot open the file match_Yeast_A1:$!";
@array=<NEWTXT>;
foreach $array (@array)
{[color=red]if ($array=~/(\d+), (\d+)/[/color])
{$RT=$1; $intensity=$2;}
print OUTPUT $RT, "\t", $intensity, "\n";
}
close (NEWTXT);
close (OUTPUT);

运行是提示未初始化值（红色标识），本人刚用perl不久，不知道问题到底出在哪儿？不是先产生了个数组了么？怎么会说没有初始化？还请各位大侠不吝赐教，谢谢！！！

图片如下：

anthony 兄，你写的代码和.
anthony 兄，你写的代码和我一样！！！没有什么变化啊！！！