sub hierarchie{

  use strict;
  use warnings;
  use File::Basename;

  my $suffix = '.a00';
  my @dateien = glob("*$suffix");
  my @ohneendung;
  my @namen;
  my $name = shift;
  my @n;
  my @child = shift;
  my @parent = shift;
  for my $datei (@dateien) {
    my $var = basename($datei,$suffix);
    #print "$name\n";
    push(@ohneendung,$var);
  }
  foreach my $ele (@ohneendung){
    #print "$ele\n";
    if($ele =~ /$name/){
      @n = split(/-/,$ele);
      if($name eq $n[0]){
      #print $name;
        push(@child,$n[1]);
      }else{
        push(@parent,$n[0]);
      }
    }
  }
}

my @array_child = qw(1 2 3 4);
my @array_parent = qw(5 6 7 8);

my ($child_ref,$parent_ref) = methode(\@array_child,\@array_parent);

sub methode{
  my ($ref_child,$ref_parent) = @_;
  my @child = @$ref_child;
  my @parent  = @$parent;
  # mach was
  return \@child,\@parent;
}

#!/usr/bin/perl

use lib qw(C:/Beispieldaten/);
use strict;
use document;
use material;

open(DATEI, "<P007201031.JPL") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);

my $Anzahlspalten = 0;
my $dokuart;
my %hash;
my @array;
my $ele;
my $test;
my $name;
my @child;
my @parent;

push(@child,5);

#Codezeugs das nichts mit child und parent zu tun hat

$test = document->new();
$test->spalteninfo(\@array);
$test->name(\$name);
&hierarchie(\@child,\@parent);
$test->child(\@child);
$test->parent(\@parent);
#  foreach my $ele (@child){
#    print "$ele\n";
#  }

sub hierarchie{

  use strict;
  use warnings;
  use File::Basename;

  my $suffix = '.a00';
  my @dateien = glob("*$suffix");
  my @ohneendung;
  my @namen;
  my $name = "P009401923";
  my @n;
  my @child = shift;
  my @parent = shift;
  push(@child,6);

  
  for my $datei (@dateien) {
    my $var = basename($datei,$suffix);
    #print "$name\n";
    push(@ohneendung,$var);
  }
  foreach my $ele (@ohneendung){
    #print "$ele\n";
    if($ele =~ /$name/){
      @n = split(/-/,$ele);
      if($name eq $n[0]){
      #print $name;
        push(@child,$n[1]);
      }else{
        push(@parent,$n[0]);
      }
    }
  }
#  foreach my $ele (@child){
#    print "$ele\n";
#  }
  
return \@child,\@parent;
}