my %uniq = map { ($_->{page} => 1, $_->{chap} => 1) } @$AoH;
@$AoH = map { { page => $_ , chap=>$_ } } keys %uniq;