my %lookup = 
    map { $_->{key} => $_->{name} }
      @$data;
  my @ordered = 
    map { {key => $_, name => $lookup{$_}} } 
      @$key_ordering;