##
region => $region
##
##
my $hashIPs{$ip} = {
totalVulns => $ipTotalVulns,
vulns => $vulns
};
my $hashrefIPs = \%hashIPs;
my $hashIPsNew{$ip} = {
region => $region,
totalVulns => ${$hashrefIPs}{$ip}{totalVulns},
vulns => ${$hashrefIPs}{$ip}{vulns}
};
for my $ip (keys %hashIPsNew){
print "$ip -- $hashIPsNew{$ip}{region} -- $hashIPsNew{$ip}{totalVulns} -- $hashIPsNew{$ip}{vulns}\n";
}