foreach my $key (keys %hashEntries)
{
	my @temp=$hashEntries{$key};
	
	#print "Elements: ".@temp."\t";
	
	print "[After no dump] Test 2 $key ->\t";
	foreach my $element (@temp)
	{	
		if($element ~~ /ARRAY/)
		{
			print "Array détecté...\t";
			foreach my $autreelement (@$element)
			{
					print "[@$autreelement]\n";
					$lesdomaines.="@$autreelement";
					$lesdomaines.="\t";
			}
		}
		else
		{
			print "[@$element]\n";
			$lesdomaines.="@$element";
			$lesdomaines.="\t";
		}
	}
	print $key."\t".$lesdomaines."\n"; 
	$lesdomaines="";
}