# count occurrences of each value
  my %count;
  ++$count{$_->{page}} for @AoH;

  # keep only those copies that aren't duplicated
  @AoH = grep $count{$_->{page}} == 1, @AoH;