sub getArray {
    my ( $event, $attrib ) = @_;
    return $array[ $event*MAX_ATTRIBS + $attrib ];
}
sub putArray {
    my ( $event, $attrib, $value ) = @_;
    $array[ $event*MAX_ATTRIBS + $attrib ] = $value;
}