my @array = qw( foo bar match zoot zoot match match match ); 
@array = grep { ! $hash{$_}++} @array;
[download]

Check 'perldoc -q duplicate'

--

There are 10 kinds of people -- those that understand binary, and those that don't.