#!/usr/bin/perl
# ispisuje totale

my $total=();
while(<>)
{
  chop();
  if (/(\d+)-(\d+)-(\d+) (\d+)/)
  {
    $total{"$1-$2"}[0]=$4;
  }
}

foreach(sort { $a cmp $b } keys %total)
{
  print "$_ $total{$_}[0]\n";
}