perl数组去重

https://stackoverflow.com/questions/7651/how-do-i-remove-duplicate-items-from-an-array-in-perl