Umm... because in these lines:

if ($key eq $selection) {
    print "\n";
[download]

you’re just printing a newline, but not the key?

BTW, instead of the foreach loop I would say:

if (exists $hash{$selection})
{
    print "\n$selection\n";
}
else
{
    print "\nThe domain you entered is not on the list above.  Now exi
+ting script.\n";
    exit;
}
[download]

Hope that helps,