<DIV>
<DIV>&gt; &gt; %hash = map +{ "$var/$_", $_ } @array;</DIV>
<DIV>Ok, não testei este exemplo... </DIV>
<DIV>&nbsp;</DIV>
<DIV>&gt; melhor tentar com pascal... :-P Perl não foi projetada</DIV>
<DIV>Não estamos falando de 'lingua morta' :-P</DIV>
<DIV>&nbsp;</DIV></DIV>