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