$combinations{$number}=[sort {$combinations{$number}{$b} <=> $combinations{$number}{$a}} (keys %{$combinations{$number}})];