A;B;1
Ab;B;3
A;Ca;2
B;C;1
...
...

#!/usr/bin/perl

use strict;
use warnings;
use Text::Bayon;

my $bayon = Text::Bayon->new;

my %distanz;
while(<>){
        chomp;
        my ($bez1, $bez2, $dis) = split /;/;
        $distanz{$bez1}->{$bez2} = $dis;
}
my $hash_ref = \%distanz;
my $output = $bayon->clustering($hash_ref);

my %hash = %$output;
my %extr_dist;
foreach my $key (sort keys %hash){
        my $cl_inhalt = join(', ', @{$hash{$key}});
        my @arr = split(/, /, $cl_inhalt);
        # Extraktion Inputdatei (Distanztabelle) & Erstellung neues Hash
        for(my $i=0;$i<=$#arr;$i++){
                for(my $j=$i+1;$j<=$#arr;$j++){
                        if(defined $distanz{$arr[$i]}->{$arr[$j]}){
                                $extr_dis{$arr[$i]}->{$arr[$j]}=$distanz{$arr[$i]}->{$arr[$j]};
                        }
                        else{
                                $extr_dis{$arr[$i]}->{$arr[$j]}->0;
                        }
                }
        }       
        print "Cluster $key\t($#{$hash{$key}})\t$cl_inhalt\n\n";
}

if($#arr>=10){
   my $extr_ref = \%extr_dist;
   my $extr_output = $bayon->clustering($extr_ref);
   ...
   ...

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