PerlでリストA, BがあるときAの順序を破壊せず、Bに存在する要素のみを削除するカッコイイ方法が思いつかない…