%sites = { site1 => [ '192.168.1.0/24', '10.10.10.0/24', '4.5.6.7/255.255.255.192'], site2 => [ '1.2.3.4/255.255.255.240', '10.1.1.1/255.255.255.252'] ... }; #### %sites = ( site1 => { ipinfo => [ '192.168.1.0/24', '10.10.10.0/24', '4.5.6.7/255.255.255.192'], descr => 'North California', isp => 'Verizon' }, site2 => { ipinfo => [ '1.2.3.4/255.255.255.240', '10.1.1.1/255.255.255.252'] descr => 'South California', isp => 'Time Warner' }, ... ); #### $sites{'site1'}{'ipinfo'} = Net::CIDR::Lite->new; #### $cidr = Net::CIDR::Lite->new; $sites{'site1'}{'ipinfo'} = $cidr->add_cidr('192.168.1.0/24');