<?xml version="1.0" encoding="windows-1252"?>
<node id="280714" title="Re: Perl Idioms Explained - keys %{{map{$_=&gt;1}@list}}" created="2003-08-04 11:46:27" updated="2005-07-29 09:32:19">
<type id="11">
note</type>
<author id="109358">
thinker</author>
<data>
<field name="doctext">
&lt;p&gt;Hi [broquaint],&lt;/p&gt;
&lt;p&gt;
or, to keep the order that the items are inserted (ie. the order in which the first instance of a  value is encountered)
&lt;code&gt;
my %seen;
@uniq = grep ! $seen{$_}++, @list;
&lt;/code&gt;&lt;/p&gt;
&lt;p&gt;cheers&lt;/p&gt;
&lt;p&gt;thinker&lt;/p&gt;
</field>
<field name="root_node">
280658</field>
<field name="parent_node">
280658</field>
</data>
</node>
