use Socket;
@sortedKeys = map { inet_ntoa($_) }
               sort map { inet_aton($_) }
                 keys %hash;