my %count;
print("$_/24\n")
   for map unpack_ipv4,
       grep ++$count{$_} == 256,
       map get_subnet($_, 24),
       map pack_ipv4,
       keys %hashIPs;