Perlで2つの配列の要素から重複を排除する、重複した要素だけ抽出する ref: http://qiita.com/mugyuu/items/f5d825c5214a7848305a