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