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