Perl uniq function on array by admin_import on 02/05/2010 my %seen; @array = grep !$seen{$_}++, @array;