Select Code to Download

team_1, location_2, tool_1, 4
team_3, location_1, tool_3, 3
...
team_4, location_1, tool_1, 1
team_1, location_3, tool_5, 3
team_3, location_2, tool_5, 5

use v5.14;
use Data::Dumper;
...
    say "   </ToolLocation>";
}
say "</ToolLocations>";

Data::Dumper:
$VAR1 = {
...
       </ToolList>
   </ToolLocation>
</ToolLocations>