Take a read through perlfunc and look at exists. If you use defined you will be creating the key and not just checking to see if the key exists.