input:
------
<test>
<author>
<name><snm>surname</snm><fnm>firstname</fnm></name>
</author>
<player>
<name><snm>surname</snm><fnm>firstname</fnm></name>
</player>
<some>
<here>here some text</here>
</some>
</test>

output:
-------
<test>
<player>
<name><snm>surname</snm><fnm>firstname</fnm></name>
</player>
<some>
<here>here some text</here>
<author>
<name><snm>surname</snm><fnm>firstname</fnm></name>
</author>
</some>
</test>


my $twig = new XML::Twig(
														pretty_print => 'indented'
																		 
												);		
														
						$twig->parse($input);
						
						my $pl = XML::Twig::Elt->new("$place");
						
						for ($twig->get_xpath($path))
						{					
							
							$_->cut ; 
						
							$_->paste('last_child', $pl) ; 
						
						} 
						
						$input = $twig->sprint;