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