perl判断数组去重