my $HoH = {};
foreach my $array (@AoA) {
  $HoH->{ $array->[0] }->{ $array[1] }->{ $array->[2] } = 1;
}