You can try Set::Array. The == operator is overloaded to do what you need I believe.
Update: Ofcourse you need intersection and equality.