my @regexps=('\.co\.uk$','[\w\-]+\.com$','\.pl$','\.uk\.com$');
my @domains=qw(foo.com weirdext.za bar.uk.com blah.co.uk perl.pl zzzz.co.uk);

while(<@regexps>) {
  while(<@domains>) {
    if (/$regexp/i) {
       ......

##</code><code>##

blah.co.uk
zzzz.co.uk
foo.com
bar.uk.com
perl.pl
weirdext.za