sub by_ip
{
    return
        map substr($_, 4),
        sort
        map inet_aton( (split /\s/, $_, 2)[0] ) . $_,
        @_
}