$seen{paul} = 1;       # this does absolutely nothing! but...
++$seen{paul};         # paul's *value* is 2 now
print for keys %seen;  # yet this still prints the same list