用perl处理矩阵

[php880229]

各位高手，有一个很大的矩阵，里面很多数据，要把其中相对小的数据全删了，只能一行或者一列删除，而不能一个数据一个数据的删。最后要得到一个相对大的数据矩阵。