my %hash; @hash{} = (); # Death to the undef trick! exists $hash{$_} or print while ;