%HoH=%{$returnedData};
foreach $x(keys %HoH){
 print "$x: ";
 foreach $y (keys %{$HoH{$x}}){
  print "$y=$HoH{$x}{$y} ";
 }
 print "\n";
}