my @sorted_tied_values = 
    sort { $a cmp $b }
    grep { tied $_   }
    values %hash;