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