use v5.14;
use Data::Dumper;
my %locHash;

foreach(`cat dataFile`){
    my ($locName, $toolName, $toolNum)=(split(/\,/,))[1..3];
    $locHash{$locName}->{$toolName}=$toolNum;
}

print "Data::Dumper:\n";
print Dumper(\%locHash);

say "<ToolLocations>";
foreach my $locName(sort keys %locHash){
    say "   <ToolLocation>";
    say "       <LocationName>",chomp($locName),"</LocationName>";
    say "       <ToolList>";
    foreach my $toolDetail(sort keys %{$locHash{$locName}}){
        say "       <Tool>";
        say "           <ToolName>",chomp($toolDetail),"</ToolName>";
        say "           <ToolNum>",chomp($locHash{$locName}->{$toolDetail}),"</ToolNum>";
        say "       </Tool";
    }
    say "       </ToolList>";
    say "   </ToolLocation>";
}
say "</ToolLocations>";