my @clean=do { 
		my %dupe; 
		grep { 
			!$dupe{$_}++ 
		} @list
	};