#!/usr/local/bin/perl
use diagnostics;
use warnings;
open(TEXT,"C:/Users/Customer/Desktop/New folder/Perl/1dfre10.TXT");
open(OUT, ">C:/Users/Customer/Desktop/New folder/Perl/1dfre10.OUT");
undef($/);
$all_text= <TEXT>;
$all_text = lc($all_text);
$all_text =~ s/[^a-z\-\']/ /g;
@wordarray = split(/[\n\s]+/, $all_text);
foreach $thing (@wordarray)
	{
		$freq{$thing}++;
	}
	
while((my $key, my $value) = each(%freq))
	{
		$value = "00000" . $value;
		$value = substr($value,-5,5);
		push(@termarray, "$value $key");
	}
	
@finalarray = reverse (sort (@termarray));
print join ("\n", @finalarray);
exit;