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

##</code><code>##

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 ];
}

##</code><code>##

sub putArray {
    my ( $event, $attrib, $value ) = @_;
    open FILE, '>' . sprintf( "%06d", $event ) . '-' .
                     sprintf( "%06d", $attrib ) or die $!;
    print FILE $value;
    close FILE;
}

sub getArray {
    my ( $event, $attrib ) = @_;
    return if !( -e sprintf( "%06d", $event ) . '-' .
                     sprintf( "%06d", $attrib ) );
    open FILE, '<' . sprintf( "%06d", $event ) . '-' .
                     sprintf( "%06d", $attrib ) or die $!;
    my $value = <FILE>;
    close FILE;
    return $value;
}