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