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