use Sort::Key qw( nkeysort );

my @sorted =
   nkeysort {
      $apples{ $_ }{ weight } * ( $apples{ $_ }{ golden } ? 10 : 1 )
   }
      keys( %apples );