foreach my $domain (@{$result->{CommandResponse}{DomainGetListResult}{Domain}}) {
    print $domain->{Name} . "\n";
}