#!/usr/bin/perl -w
use strict;

my %data;

while (<DATA>)
{
	chomp;
	my ($number, $value) = split;
	$data{number}{$number}{value}{$value}{metric1}||=0;
	$data{number}{$number}{value}{$value}{metric1}++;
}

foreach my $n (keys %{$data{number}})
{
	foreach my $v (keys %{$data{number}{$n}{value}})
	{
		print $v." (".$data{number}{$n}{value}{$v}{metric1}." times)\n";
	}
}
__DATA__
1 AAA
2 BBB
3 CCC
4 DDD
2 EEE 
2 EEE