$dup{$row[3]} = $dup{$row[3]} + 1; # Has trouble with undef
$dup{$row[3]} += 1;
++$dup{$row[3]};
$dup{$row[3]}++;

##</code><code>##

++$wordCount{$_} for split ' ', $string;