...
    chomp;
    $hash{$_}= $pbxex-1 if (not exists $hash{$_});
    $hash {$_} ++;
...