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