use warnings;
use strict;

my %data = (
          'QUEUETIME' => '0.046',
          'PROPERTY' => {
                        'DOMAIN' => [
                                    'a.com',
                                    'b.com',
                                    'c.com'
                                  ],
                         'LIMIT' => [
                                   '1000'
                                  ],
                      }
        );

my @domains = @{ $data{PROPERTY}{DOMAIN} };
for (@domains) {
    print "$_\n";
}

# Same w/out intermediate array:
# print "$_\n" for @{ $data{PROPERTY}{DOMAIN} };

__END__

a.com
b.com
c.com