调试问题请问怎么解决

use of uninitialized value $_ in scalar chomp

我是这样用的  open (EXAMPLE,'e:\perl\ZH.txt')||die("error! \n");                     
           @ZH = <EXAMPLE>;
           foreach $ZH(@ZH)
           {
               chomp;
               @output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               $fan=~ m/\s+:\s+(.*\sdBm$)/img ;};
               $sheetxw->cells($num,4)->{value} = $fan;
               $num++;
           }

你就不能换个别致一点的标题吗？
我认为不能高度概括自己问题的人，
是一个愚蠢的人。

【调试问题】
【excel 的一个问题】
【excel 添加问题】
【调试问题怎么解决】