>>326
普通、リストを持ってきて「積を求める」っつったら行列を思わせるので、
質問としてどうかと思うが。しかも %h なんてどこにもないし、

まぁいいや。2 つのリストで重複している要素を挙げろ、ということの
ようだけど、そのコードをそのまんま一行にするなら、こうかな。

@intersect = grep { ++$tmp{$_} > 1 } sort(@a, @b);

ただ、>>326 もこのコードも、@a や @b の中で重複要素があった場合
(ex. @a= (2, 3, 5, 5)) には誤った結果が返るのは分かってるよな？