通过perl脚本,删除数据组中重复的字段