ircで色々教えてもらった。 http://rafb.net/paste/results/UdqEr958.html こんなんとか。 これでよかった。 やりたかったことは@hoge & @mogeな絞込み。 この意図がうまく伝えられてなかったですね>< http://search.cpan.org/~samv/Set-Object-1.18/lib/Set/Object.pm#intersection(_%5Blist%5D_) とかもつかえそげ。 ちなみにさっきのコードだとgrep definedしないとダメポ。 (追記) use Perl;にも同じ内容をPostしてたら、メールが来てた。 こんなの。やっぱList::Compareかぁ。 Thanks:Stephen Steneker use List::Compare (); my @hoge = qw/1 2 3 4 5 5/; m