请帮忙纠错

@IN=<IN>;
for($i=0; $i<=$#IN+1;$i++){
    @block = split/\//,$IN[$i];
    $top_block_gds = pop(@block);
    chomp $top_block_gds;
    @block2 =split/\./, $top_block_gds;
    chomp($top_block=shift(@block2));
    print "$top_block \n";
}
Use of uninitialized value in split at try_0806 line 28, <IN> line 7.

不知道为什么总是报$IN[$i]这个有问题呢?谢谢!

你那里报错吗？
我试了一下，我这里报错是因为没有指出脚本解释器
我在首行加入#!/usr/bin/perl 后，open IN,"<随便一个文本";
测试没有报错