foreach my $sDV_Name (keys %hData){
     funktion %hData($sAufgabe, %hData->{$sDV_Name});
}
sub funktion{
   my ($sAufg, %hDV) = @_;

   foreach my $sDV_Pattern (keys %hDV){
      print "Bearbeite PATTERN: $sDV_Pattern  \n";
      foreach my $sValue ( keys %hDV->{$sDV_Pattern}
           print "Eintrag von PATTERN: $sDV_Pattern ist $sValue \n";
      }
   }
}