my @a=map {  my $x=$_;[map { $HoH{$x}{$_} } sort keys %{$HoH{$x}} ]  } sort keys %HoH;