for my $domain (keys %domain_data) { my $d = $domain; $d = "http://$d" if $d !~ m(^https?://);