for my $zz (0 .. scalar @PTage) {
  $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz];
}