my ($team, $loc, $tool, $amt) = (split /[,]/)[0,1,2,3];