my @sorted_domain =
    map { join ".", reverse split /\./ }
    sort
    map { join ".", reverse split /\./ }
    @domain;