my $header = ${$ele->child()}{0};
# erzeuge headerzeile
foreach my $ele2 (@documentlist){
     if($header eq ${$ele->name()}){
                   
     my %hash = %{$ele2->spalteninfo()};
     my @sorted = sort keys %hash;
     $string .= '<tr>';
     for my $key(@sorted){
          $string .= '<th>'.$key.'</th>';
     }
     $string .= '</tr>'; 
     #PROBLEM
     break; 
     }
}

my @arr = test();
my $molp = test();

sub test {
  my @mimamu = (1, 3, 7, 9, 11);
  return wantarray() ? @mimamu : $mimamu[0];
}

perl -wle'
sub test {
  my $context = wantarray()
    ? "list context"
    : defined wantarray()
    ? "scalar context"
    : "void context";
  print $context;
}
my @x = test;
my $x = test;
test;'
list context
scalar context
void context