@array = (0, 1, 0);
@array = map {1 - $_} @array;
say "@array";   # 1 0 1