my @nodes = $doc->findnodes("//TAGNAME");

if ( @nodes > 1 )
{
    $_->getParentNode->removeChild($_) for @nodes[1..$#nodes];
}