my %cuix=(
  macro_type=>'',
  type=>'',
  UID=>'', # Verknüpfungselement zwischen den Ribbons und der Ribbon-Gruppe
  name=>'',
  command=>'',
  SmallImage=>'',
  LargeImage=>'',
);

...

   print "UID vor: ".$cuix{UID}."\n";
    print "\n\n---- Befehl anfang ----\n" if $config{debug} == 1;
   ($cuix{UID}) = $_ =~ m|<.*UID="([^"]+)"[^>]+>|i;
    print "UID: ".$cuix{UID}."\n";
    $count_block_start++;