my @food;
push @food, { name => "apple", number => 1  };
push @food, { name => "banana", number => 2 };
push @food, { name => "orange", number => 5 };
push @food, { name => "broccoli", number => 9 };
push @food, { name => "grape",  number => 10};

my %ranking = (
    1 => 0,
    2 => 1,
    5 => 2,
    10 =>3
); 

my @sorted = sort {  $ranking{$a->{number}} <=> $ranking{$b->{number}} } @food; 

say Dumper(\@sorted);

$VAR1 = [
          {
            'name' => 'apple',
            'number' => 1
          },
          {
            'number' => 9,
            'name' => 'broccoli'
          },
          {
            'number' => 2,
            'name' => 'banana'
          },
          {
            'name' => 'orange',
            'number' => 5
          },
          {
            'number' => 10,
            'name' => 'grape'
          }
        ];