title: Perl hash negation
body: <p>Can you help me correct the code snippet.</p>
  
  <p>I want to list the server which is type eq xyz but not with namedservers.</p>
  
  <pre><code>our %SERVERS = (
    "rajesh1" =&gt; {type =&gt; 'xyz', sha =&gt; 'ram'},
    "rajesh2" =&gt; {type =&gt; 'xyz', sha =&gt; 'sita'},
    "rajesh3" =&gt; {type =&gt; 'xyz', named =&gt; ["raa"]},
    "rajesh4" =&gt; {type =&gt; 'xxx', named =&gt; ["rajjaj"]},
  );
  
  while ( my $mServer = each(%SERVERS) ) 
  { 
    if ("$SERVERS{$mServer}{type}" eq "xyz" &amp;&amp; !"$SERVERS{$mServer}{named}" ) 
    {
      print "Name of the server is $mServer\n";        
    }
  }
  </code></pre>
  
  <p>Expected result:</p>
  
  <pre>rajesh1
  rajesh2</pre>