Your logic for finding out whether the domain is in the hash is wrong. You should use something like 
if (exists $hash{$key}) {
  print "\n";
} else {
  print "\nThe domain you entered is not on the list above ...";
}

[download]
You loop through the keys of your hash, so you take the first key (attention: they are usually not in the same order as you put them in the hash) and compares it to your $selection. Most likely it won't be the same, so your else-part is executed, where you have built in an exit, too, so it prints your failure statement and stops. Even if your $selection is one of your keys, unless it is the first key in the hash, your program won't find it.

Greetings,
Janek Schleicher

PS: In general it is not a good idea to name a hash %hash. That it is a hash is shown by the sigil %. Better give it a name that describes what's inside the hash, here an idea would be to call that variable like %domain. Something similiar could be said about $key, but here you could avoid it completely, e.g. to print the list of domains, you could just write print "  $_\n" foreach keys %hash

In reply to Re: Why is this code not printing hash key? by bigj
in thread Why is this code not printing hash key? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.