perl判断两个数组是否一样