my $outfile = 'C:\Users\Ioulia\Desktop\outree.tre';
my $treeout = Bio::TreeIO->new(-format => 'newick', -file => ">$outfile");