$node->findnodes("ancestor::*")->map(sub { $coolNodeName->($_) }) #### (map { $coolNodeName->($_) } $node->findnodes("ancestor::*"))