$result{$key} = 1;
$result{$key}++;

##</code><code>##

$ perl -E '$key = "wrong"; $result{$key} = 1; $result{$key}++; say values %result'

##</code><code>##

2