my @sorted = sort{
                   {
                        $apples{$SORTVAR}->{golden}       ? 
                        $apples{$SORTVAR}->{weight} * 10  : 
                        $apples{$SORTVAR}->{weight}
                   },
                   '<=>'
             } keys %apples;