Select Code to Download

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

sub putArray {
    my( $event, $attrib, $value ) = @_;
...
    my( $event, $attrib ) = @_;
    return $hash{ $attrib }->[ $event ];
}

sub putArray {
    my ( $event, $attrib, $value ) = @_;
...
    close FILE;
    return $value;
}