# Verdichten:
my %hash;
for (my $zz = 0; $zz < scalar @PTage; $zz ++) {
  $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz];
}
# Ausgeben:
foreach my $temp (sort {$a cmp $b} keys %hash) {
  print "$temp:";
  my $werte = '';
  foreach my $temp2 (keys %{$hash{$temp}}) {
    $werte .= " $temp2";
    print " $hash{$temp}{$temp2}";
  }
  print "$werte\n";
}