Perl模式匹配中关于“Use of uninitialized value”的有关问题

Perl求教：模式匹配中关于“Use of uninitialized value”的问题
程序中的一条语句是这样的：
while   (   !($lista[$i]   =~   (/xml/)))   {
        $i++;
    }
运行后提示改行程序出错：
Use   of   uninitialized   value   in   pattern   match   (m//)   at   /project/TD-RAN/tools/pm_tools/pmgrabber1.01   line   1251.

求教高手，这是什么错误呢，应该如何改？


[解决办法]
while ( $i < @lista && $lista[$i] !~ /xml/ ) {
$i++;
}