{
    local $,=$/;
    print sort { $freq{$b} <=> $freq{$a} } keys %freq;
}