print join("\n", sort { $hash{$b} <=> $hash{$a} } keys %hash);