sub putArray {
    my( $event, $attrib, $value ) = @_;
    $hash{ $attrib } ||= [];            # create if not def
    $hash{ $attrib }->[ $event ] = $value;
}
sub getArray {
    my( $event, $attrib ) = @_;
    return $hash{ $attrib }->[ $event ];
}