if($j!=/^>/)

##</code><code>##

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

##</code><code>##

$count{$_}++;