open my $output_fh, '>', "filename.txt" or die $!;
#while(my($string, $count) = each %seen){
foreach my $string(sort {$seen{$b} <=> $seen{$a}} keys %seen){
    my $count = $seen{$string};
    printf $output_fh "%-70s%d\n", $string, $count;
}
close $output_fh;