程序出错。不是一两次了，但是我就是不知道哪里错了

这是文件1

这是文件2

这是报错信息= =

然后结果为空！！求大神帮帮窝

咦！有结果，这样的，但我实在是不知道为啥会报错，而且也不知道这样的报错对结果有没有影响

整个 file1 的循环 错误好多，
可以改为
push @posi,[split] while <FILE1>
试试

FILE1回圈里面的$j每次都 = 0, 要把 my $j = 0写在外面
你的@posi 是用二维阵列的想法, 但是perl 没有二维阵列
你这样的写法变成 $a[ $j ] 是一个串列的参照，参照中的第 $i 个是$t[ $i ]
最好 use strict 就可以避免这种问题
另外你那些 if 可换成 if... elsif ... 程式会比较快