my (%hData);

while ( my @aContr = $sqlResult->fetchrow_array()){
   $hData{$aContr[1]} = ( 
      { $aContr[3] => 
            {
            TYP   =>  $aContr[0],
            DV     =>  $aContr[1],
            STATUS =>  $aContr[2],
            PATTERN =>  $aContr[3],
            .
            .
            .
            }
      }
   );
   # Hier kommt leider nur Müll raus 
   foreach my $t (keys %{$hData{$aContr[1]}}  ){
      foreach my $s (keys %{$hData{$aContr[1]}{$t}} {
         print "KEY von $aContr[1]: $t | Value dazu ist:  $hData{$aContr[1]}{$t}{$s}\n";
      }
   }
}