Alterar um conteúdo de arquivo XML via script Perl

Este tópico está em continuação deScript Perl para preencher um arquivo XML.

O arquivo que eu quero alterar é:

<?xml version="1.0" encoding="UTF-8"?>
  <configuration start="earth">
    <country-list>
      <country name="japan">
        <description></description>
        <start>1900</start>
        <end/>
      </country>
      <country name="italy">
        <description></description>
        <start>1950</start>
        <end/>
      </country>
      <country name="korea">
        <description></description>
        <start>1800</start>
        <end/>
      </country>
    </country-list>
  </configuration>

Quero adicionar um novo país aqui nesta lista.

Na pergunta anterior,Script Perl para preencher um arquivo XML.

#Get the list of cities as a list, then push "Tokyo" to it.
push @{$doc->{countries}->{country}->{'japan-'}->{city}}, 'Tokyo';

Isso foi sugerido para adicionar uma nova tag, mas, no meu caso, não tenho certeza de como exatamente posso usar "push". Não consigo mapear para a tag correta.

questionAnswers(2)

yourAnswerToTheQuestion