#!/usr/bin/env perl
use strict; use warnings;

my %h;
my %m;
my %db;

while(<DATA>){
  chomp;
  my @fields = split;
  my ($date,$database_name,$speed) = @fields[1,2,3];
  my ($date_hour,$minute) = split /:/, $date ;
  my $date_hour_minute = join (':',$date_hour,$minute) ;
  
  $h{$date_hour}{$database_name} += $speed;
  $m{$date_hour_minute}{$database_name} += $speed;
  $db{$database_name} = 1;
}

for my $db_keys (sort keys %db){
	print "$db_keys";
	for my $h_keys (sort keys %h){
		print $h_keys;
			for my $db_keys (sort keys %db){
				print "$h{$h_keys}{$db_keys}";
				print "\n";
			}
	}
}