team_1, location_2, tool_1, 4
team_3, location_1, tool_3, 3
team_2, location_3, tool_3, 2
team_2, location_4, tool_2, 5
team_2, location_4, tool_5, 3

##</code><code>##

<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>##

(my $team, my $loc, my $tool, my $amt) = (split /[,]/)[1,2,3,4];
$status{$team}{$loc}{$tool}{amt} = $amt;