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