#!/usr/bin/perl
# Skrypt perl-a
use strict;
use warnings;

my (%tab, $key,$val);

while(<>) { 
	chop;
	$tab{$_}++;
}
while (($key,$val) = each %tab ) {
	printf("%d\t%s\n",$val,$key);
}