#!/usr/bin/perl

use warnings;
#use strict;

my @names = qw(
DONT
MICH
LEON
RAPH
SPLN
SHRD
CASY
APRL
FOOT
BEBP
RKST
DUBY
SAMH
GRAW
KNYN
KP01
KP02
KP03
KP04
KP05
);

my %data;
open my $file, "<", "rat_event.txt" or die "Can't open file:$!";

while(<$file>) {
    next if /\.mcp/;
    chomp;
    my ($s, $n) = split;
    push @{ $data{$s} }, $n;
}

my $i = 1;

for my $name (@names) {
    print "$name\n";
    my $x = 1;
    for (@{$data{$name}}) {
        print "Time $x : $_\n";
        $x++;
    }
    print "\n";
    $i++;
}

close($file);