my @unique = do{
		my %seen;
		undef @seen{@list1, @list2, @list3};
		sort keys %seen;};