looks like _find_snapname is built recursive but incorrect, after the first call the value is not saved

print caller(),"\n";
[download]

to make sure those dumps are coming from the right subs.

I would think you need something like

push @snaps, _find_snapname($ref,$node->childSnapshotList);
[download]