foreach my $ip (keys %data) { 
  print "IP = $ip\n"; 
   for my $cname ( @{$data{$ip}{cname}} ) { 
    print "CName = $cname\n"; 
   } 
} 

##</code><code>##

IP = 192.168.30.136
CNAME = salamander.acme.com
CNAME = AMSPWD030WKG
CNAME = VLW4S
CNAME = WKBX0010B-A
IP = 192.168.30.130
CNAME = salamander.acme.com
CNAME = AMSPWD030WKG
CNAME = VLW4S
CNAME = WKBX0010B-A
IP = 192.168.30.131
CNAME = salamander.acme.com
CNAME = AMSPWD030WKG
CNAME = VLW4S
CNAME = WKBX0010B-A
IP = 192.168.30.133
CNAME = salamander.acme.com
CNAME = AMSPWD030WKG
CNAME = VLW4S
CNAME = WKBX0010B-A