It would also scale a little better than nested loops since =~ on an array will short-circuit on finding any match in the array.

Of course, Perl 6 may also have superpositions natively, in which case the problem might be solvable in constant time (on the right hardware ;-)