Select Code to Download

use strict;
use warnings;
use Data::Dumper;
...
    return[0,$locusTree];
  }
}

With $tree = [['mouse','rat'],['human','chimp']]; 
gives 00100000302011000000100

With $tree = ['mouse',['rat',['human','chimp']]]; 
gives 00100000301011000000100