my ($team, $loc, $tool, $amt) = split /[,]/;