sub functions {

use lib qw /./;
use strict;
use warnings;
use DOCUMENT;
use material;

my $document  = shift;
my $datei     = shift;

$$document = DOCUMENT->new();
@{$document->spalteninfo(\@array)};
$$document->name(\$name);
&get_hierarchie(\$name,\@child,\@parent);
&get_format(\$doc_format);
#print "$doc_format";
${$document->doc_format(\$doc_format)};
@{$document->child(\@child)};
@{$document->parent(\@parent)};