lock $track{$tr}{'tot'};
$track{$tr}{'tot'} += (rand 5) + $whip;