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