这个perl脚本速度应该怎么优化

如何优化这个perl脚本的速度介绍:这个脚本把两个文件的行当作两个集合，找出它们的差集(也就是找出在文件A中出现而在文件B中没有出现的行，以及在文件A中没有出现的行)。uniq命令的组合可以有类似的效果，但是要统计每个文件的不同情况并不容易。