print "Cluster $key\t($#{$hash{$key}})\t$cl_inhalt\n";
print "\tCluster $sub_key\t($#{$sub_hash{$sub_key}})\t$sub_cl_inhalt\n";
#fall es gibt
print "\t\tCluster $sub_sub_key\t($#{$sub_sub_hash{$sub_sub_key}})\t$sub_sub_cl_inhalt\n";
...
...