Select Code to Download

#!/usr/bin/env perl

...

use Data::Dump;
dd $result;

{
  CommandResponse => {
...
  Warnings => {},
  xmlns => "http://api.namecheap.com/xml.response",
}

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

Domain1.com
Domain2.com
Domain3.com
Domain4.com