exists operator argument is not a HASH element at test-5.00503.perl line 7.