if ($seen{$_}) {
        $seen{$_} += 1;
    }
    else {
        $seen{$_} = 1;
    }

##</code><code>##

    $seen{$_}++;