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