Select Code to Download

my $key_ordering = [8, 1, 5, 3, 9];
my $data = [
...
    {key => 8, name => 'label1'},
    {key => 9, name => 'label3'}
];

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