my @new_duplicateip_results;
foreach my $first (@$select_result) {
	foreach my $second (@$select_result) {
		if ((@$first->[0] eq @$second->[0]) && (@$first->[1] eq @$second->[1]) && (@$first->[$#{$first}] eq $self->product_id) && (@$second->[$#{$second}] eq "WS-".$self->product_id)) {
			my $ip_string = "@$first->[0],@$first->[1],";
			foreach  (2..$#{$first}) {
				$ip_string .= @$first->[$_]+@$second->[$_].",";
			} 
			my @split_array = split(/,/,$ip_string) ;
			push @new_duplicateip_results,\@split_array;
		}				
	}
}
foreach  (@new_duplicateip_results) {
	print STDERR join "#",@$_;
	print STDERR "\n";
}