sub ip_to_key { join '', map {sprintf "%03d", $_} split /\./, $_[0] }