print "--- RibbonTabSource ---\n";
for my $index (sort keys %RibbonTabSource){
  my %data = $RibbonTabSource{$index}; # das ist Zeile 163
  print $index."\n";
  print $index." - ".$data{'Name'}."\n";
}