sort dotted quad ips in perl