Alternatively a one-shot for loop can be used:

for my $name ( $tree->ancestor->son->sibbling ) {
    if ( $name ... ) {
        # ...
    }
    # ...
}
[download]

Differences:

$name is scoped within the for block

$name is an alias of the original, not a copy

Anno

Comment on Re^2: a natural way of expressing things Select or Download Code