Select Code to Download

1;2;8;root;xyzzy;cat
1;2;5;root;xyzzy;dog
1;9;root;bird

        1
       / \
...
  xyzzy     /
      \    /
       root

#!/usr/bin/env perl
use strict;
...
    }
    return reverse @lineage;
}