for my $h (@suggestionsTemp) {
	my $targetL = lc $h->{targetL};
	push @suggestionsUnsorted, ($targets{$targetL}={targetL=>$targetL})
		unless $targets{$targetL};
	$targets{$targetL}{origin}{$h->{origin}}++;
	$targets{$targetL}{count}++;
}
$_->{origin} = join ', ', sort keys %{$_->{origin}} for values %targets;