my $event;

while( <> ) {
    chomp;
    my ( $time, $lane, $factory, $event ) = split " ", $_;
    $event->{ $factory }{ $lane }{ $time } = $event;
}