      ?

<p>
         
   :
<font color=green><pre>
        %seen = ();
        for $element (keys(%foo), keys(%bar)) {
            $seen{$element}++;
        }
        @uniq = keys %seen;
</pre></font>
 :
<font color=green><pre>
        @uniq = keys %{{%foo,%bar}};
</pre></font>
     :
<font color=green><pre>
        %seen = ();
        while (defined ($key = each %foo)) {
            $seen{$key}++;
        }
        while (defined ($key = each %bar)) {
            $seen{$key}++;
        }
        @uniq = keys %seen;
</pre></font>

 ,        :
<font color=green><pre>
        @uniq=grep{!$hash{$_}++} @mass;
</pre></font>
 ,     ,  -   ,     :
<font color=green><pre>
        @uniq=grep{!$hash{$1}++ if m&$name\001($value)\001$other\n&} @mass;
</pre></font>