配列の比較（未）

ふと配列の比較をしたくなった。

my @list = ("test0,test1,test2", "test3,test4,test5");
みたいな配列があって
","で分解した二番目の要素がtest1、かつ、三番目の要素の要素がtest2というものが
配列内にあれば是としたいとする。
my @list2  = ("test6,test7,test8", "test9,test10,test11");# これは否

左にifが付くけどそこは無視して書くと

grep (split ",", $_)[1,2] == ("test1","test2"), @list;
# ＝＝は…

grep (split ",", $_)[1,2] eq ("test1","test2"), @list;
# かといって eq でもないし

そもそも書き方がまずい？
配列の比較関数作るしかないのかしら。List::Util,List::MoreUtilsにもそれっぽいの無いし。
まぁ一行にこだわらなければカンタンなんだけれど。。