my @species = split '//', $list;
my @tree;
foreach my $species ( @species ) {
    push @tree, edit( $species );
}
print "$_\n" for @tree;