get;$!=words;say +grep {$/=$![^3+$_];$/.Set==3&&$/.sort!= $1},^($!-2)