for($hash{foo}) { $_ ||= keys %hash; }