Também dá para fazer assim:<br><br>perl -E &#39;map$h{$_}++||say,sort&lt;&gt;&#39; lista.txt<br><br>Ou substituir o &quot;say&quot; por &quot;print&quot;, se não puder vários &quot;\n&quot;.<br clear="all"><br>-- <br>Renan Rangel<br>