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