my $value = $list{$location};
$value++;
$list{$location} = $value;