Select Code to Download

    $hd::size1 = scalar @{\@{$main::M[0]}};
    $hd::size  = $hd::size1 - 1;
...
    }
$hd::save = $hd::size

#!/usr/bin/perl
#ex2
...
    $clust::tree = treecluster(data=>$main::hd, method=>'a');
     $clust::cluster_ids = $clust::tree->cutthresh($main::hdt);    
}