my $selection = <>;
chomp $selection;
my $found=0;
foreach my $key (keys %hash) {
    if ($key eq $selection) {
        print "\n";
        $found=1;
        last;
    }
}

$found or    print "\nThe domain you entered is not on the list above.  Now exiting script.\n";