#!/usr/bin/perl

# Takes the database of citation ages and makes it more user friendly
# Author: Ian Hickman

use strict;

my (@field, %table);

while( <STDIN> ){
  @field=split;
  $table{$field[0]}.=$field[1]." ";
}

my $paper;

foreach $paper ( keys ( %table )){
  print"$paper $table{$paper}\n";
}