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";
     }
  }
}