my %isBad= map { $_ => 1 } qw/
              www.yahoo.com
              www.google.com
              www.comcast.com
            /;