#!/usr/bin/perl
#
# Skrypt perl-a

use strict;
use warnings;

my %tab;

while(<>) {
        my $wyraz;
        my @linia=split;
        for $wyraz (@linia) {
                 $tab{$wyraz}++;
        }
}


my @keys = sort {
	$tab{$b} <=> $tab{$a} || $a cmp $b;
	} keys %tab;

my $key;
for $key (@keys) { 
	printf("%d\t%s\n",$tab{$key}, $key);
}