C:\berrybrew\5.30.0_64>perl -e "$foo = 'something true-ish'; foreach (0..9) { $bar = ($foo .. !$foo); print qq($bar:); }" 1:2:3:4:5:6:7:8:9:10: