foreach my $word (
  sort {
    $freq_count{$b} <=> $freq_count{$a} or $a cmp $b
  } keys %freq_count
) {
  print "$word:\t$freq{$word}\n";
}