$blocks{10}{0} = [
   [Net::Netmask->new("10.0.0.0/24"), "City A"],
   [Net::Netmask->new("10.0.1.0/24"), "City B"]
];
$blocks{10}{1} = [
   [Net::Netmask->new("10.1.0.0/24"), "City C"],
   [Net::Netmask->new("10.1.1.0/24"), "City D"]
];