#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;

my $xml = XMLin( \*DATA, KeepRoot => 1, NoAttr => 1 );
pp $xml;
print XMLout( $xml, KeepRoot => 1, NoAttr => 1 );

__DATA__
<ToolLocations>
  <ToolLocation>
    <LocationName>location_4</LocationName>
    <ToolList>
      <Tool>
        <ToolName>tool_2</ToolName>
        <ToolNum>5</ToolNum>
      </Tool>
      <Tool>
        <ToolName>tool_5</ToolName>
        <ToolNum>3</ToolNum>
      </Tool>
    </ToolList>
  </ToolLocation>
</ToolLocations>

##</code><code>##

C:\test>1001808
{
  ToolLocations => {
    ToolLocation => {
      LocationName => "location_4",
      ToolList     => {
                        Tool => [
                          { ToolName => "tool_2", ToolNum => 5 },
                          { ToolName => "tool_5", ToolNum => 3 },
                        ],
                      },
    },
  },
}

<ToolLocations>
  <ToolLocation>
    <LocationName>location_4</LocationName>
    <ToolList>
      <Tool>
        <ToolName>tool_2</ToolName>
        <ToolNum>5</ToolNum>
      </Tool>
      <Tool>
        <ToolName>tool_5</ToolName>
        <ToolNum>3</ToolNum>
      </Tool>
    </ToolList>
  </ToolLocation>
</ToolLocations>