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 .= '';      for my $key(@sorted){       $string .= ''.$key.'';      }      $string .= '';      #PROBLEM      break;       } }