# &findElementPosition(\@tree,"ng1_1_1_u3");
#
sub findElementPosition{
  my ($tree,$needle) = @_;
  for my $treeElement (@{$tree}){
    if (ref $treeElement eq "ARRAY"){
	  push @position,0;
	  &findElementPosition($treeElement,$needle);
	  pop @position;
	  $position[-1]++;
    }
    else{
	  if ($treeElement eq $needle){
	    for (@position){ print "[$_]" }
		print " " . $treeElement . "\n";
	  }
      $position[-1]++;
    }
  }
}