#!/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";