Perl Tip Of The Day: “uniq” an Array
Monday, December 17th, 2007I can across a great snippet of code, posted on DZone, that provides a two line solution to uniq an array while maintaining order:
# Input: @list
# Output: @uniqed
my %seen;
my @uniqed = grep !$seen{$_}++, @list;
#From TMtm on DZone.com

