picturesque liar
fight nor fly
24 hours
love life
wrinkled
a million dollars
love life
even plan
you attempt things
a million dollars
many hardships
many hardships
married
head
many hardships
this year
secret shame
present
apple pie
many hardships
elephant
careful
peace
many hardships
apple pie
good afternoon
seven levels

##</code><code>##

many hardships
love life
apple pie
a million dollars
this year

##</code><code>##

#!/usr/bin/perl
open(INP, '<', $ARGV[0]);
while ($item=<INP>)
{
	chomp($item);
	(exists $query{$item}) ? ($query{$item}=$query{$item}+1) : ($query{$item}=1);
}
print join("\n", (sort {$query{$b}<=>$query{$a}} (keys %query))[0..4])."\n";