for (0..10) { $_ = 10 - $_; print; }