Or save 4 ops and use the following :)

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