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;
}

##</code><code>##

foreach $d(@dllExeLines)
{		
    if( $d =~ m/$serviceName/ )
    {
	foreach $f( split /,/, $d )
	{
	   if( $f =~ /$dll/igcgxm )
	   {
	      push @unique, $dll;				   }
	}
    }
}

RDup(@unique);