my @sorted =
   sort {
      no warnings 'uninitialized';
      $a->{order} <=> $b->{order}
   } @aoh;