#!/usr/bin/perl -w

# Exercicio 1 da Aula 26 de MAC211
# M.S.Reis, 15.6.2010

use strict;

my %frequencia;

while(<STDIN>){

    chomp $_;

    my @linha = split " ", $_;

    # Note que dentro do 'foreach' a variavel '$_' recebe os valores de linha, 
    # e que o valor de '$_' no escopo anterior e' recuperado, quando acabam as
    # iteracoes do 'foreach'!
    #
    foreach (@linha){
        !defined($frequencia{$_}) and $frequencia{$_} = 1 or $frequencia{$_}++;
    }
  
    # print "I'm back! $_\n";

} # fim do 'while'


foreach my $chave (sort keys %frequencia){
    print $chave . " " . $frequencia{$chave} . "\n";
}

