gistfile1.txt

my @d[4;4];

for 0..3 -> $x {
@d[$x;0] = 1;
my $s = 2 * ($x + 1);

print "\$x=$x, \$s=$s, \@d[\$x;0]=@d[$x;0], \$s + \@d[\$x;0]=" ~
$s + @d[$x;0];

@d[$x;1] = $s + @d[$x;0];
say ", \@d[\$x;1]=@d[$x;1]";
}

print "\n";

for 0..3 -> $x {
for 0..3 -> $y {
say "\$x=$x, \$y=$y, \@d[\$x;\$y]=@d[$x;$y]";
}
}