#!/use/bin/perl -w
##and followed by 
use strict;

##</code><code>##

if (($location) && exists($list{$location})) {
    my $value = $list{$location};
    $value++;

    $list{$location} = $value if ($value);