1#!/usr/bin/perl 2 3# Copyright 2002-2019, Paul Johnson (paul@pjcj.net) 4 5# This software is free. It is licensed under the same terms as Perl itself. 6 7# The latest version of this software should be available from my homepage: 8# http://www.pjcj.net 9 10use strict; 11use warnings; 12 13my @x; 14 15my $y = 1; 16 17for (0 .. 10) { 18 $y && 19 $x[1]++; 20 21 $y && 22 $x[0]++ && 23 $x[1]++; 24 25 $x[2]++ 26 if $y; 27 28 for (0 .. 2) { 29 $x[3]++; 30 } 31 32 if ($y) { 33 $x[4]++; 34 } else { 35 $x[5]++; 36 } 37} 38 39# print join(", ", @x), "\n"; 40