sub RDup
{
	my @arrays = sort @_;
	my @temp = ();
	my %Seen = ();
	
	foreach my $elem(@arrays)
	{
		next if $Seen{$elem}++;
		$elem = join(" ", split " ", $elem);
		push @temp, $elem;
	}
	
	return @temp;
}