for my $T ( sort { $HoTypes{$a}[-1] <=> $HoTypes{$b}[-1] } keys %HoTypes ) {
        my $nodeStr = $HoTypes{$T}[0];
        print "$T -> $nodeStr\n";
}