There is:

use List::AllUtils qw( nsort_by );
my @sorted = nsort_by {
                        $apples{$_}->{golden}       ? 
                        $apples{$_}->{weight} * 10  : 
                        $apples{$_}->{weight}
             } keys %apples;
[download]

There is also a string compare version.