foreach my $index (........) {   # Hauptschleife 1
    ...
    # Logik zum Erzeugen des zu verwendenten Hashnamens
    # z.B. %Hash1 oder %Names_4
    # erzeugen eines Skalars mit diesem erzeugten Hashnamen 
    $Skalar = '%Hash1';[/b]
    foreach my $key (sort keys $Skalar) {  # Innere Schleife
        print "Key: $key\n";
    }
}