{
    local($\, $,) = ("\n", "\t");  # tab delimited output
    foreach (sort { $frequency{$b} <=> $frequency{$a} || $a <=> $b } keys %frequency) {
        print $_, $frequency{$_};
    }
}