my %lookup;
add_node("/colors/banana");
sub add_node
{
   my $fullpath = shift;
   my $leaf = (split '/', $fullpath)[-1];
   push @{$lookup{$leaf}}, $fullpath;
}