my $aant = (keys %HoHoA);
for (my $i = 1; $i<= $aant; $i++) {
     
    foreach my $keyA(sort keys %{$HoHoA{'set'.$i}}) {
         
        for (my $y = $i+1; $y<= $aant; $y++) {   
            foreach my $keyB(sort keys %{$HoHoA{'set'.$y}}) {
             
                print "$keyA - $keyB\n";
            } 
        }
    }
}