print @$x == grep({eval {\%$_}} @$x),"\n";