my @sorted_scores =  sort { $scores{$b}->{Goodness} <=> $scores{$a}->{Goodness} } keys %scores;