@x = map { $_ > 1 ? 1 : 0 } (-5 .. 5)