Your problem is with the my $node = @_;. What is happening is that you're telling perl to interpret @_ as a scalar, which will give you the number of elements in the list (1, in this case). To force list context, do this: my($node) = @_;

~Cybercosis

nemo accipere quod non merere