while(my $row=$sth->fetchrow_hashref()){
  push @domains, $row;
}

##</code><code>##

print "$domains[0]->{subdomain}\n";
my $d;
foreach $d(@domains){
  print "$d->{subdomain}\n";
}

##</code><code>##

my $template=HTML::Template->new(filename=>'test.tmpl');
$template->param(DOMAINS => \@domains);
print $template->output();

##</code><code>##

          <TMPL_LOOP NAME=DOMAINS>
                Subdomain: <TMPL_VAR NAME=SUBDOMAIN>
          </TMPL_LOOP>