perlで複数リストのintersect(積集合)をとる

こんなかんじ？

先頭で空のリストはスルーするようにしてるけど別にいらないかもしれない。
最後にgrepしてる部分で == の条件をなくすと和集合になりますね。