Of course as perl 6 doesn't exist yet I haven't actually tested this. (which also means you can't downvote me for mistakes ha! ha!) but I've tried to write this as if it were a real life program one would write. My original version had comments but I've stripped them out because I thought monks might find it interesting to ty and work out what's going on for themselves. Personally I was impressed by how easily the new features "clicked." Finally I'd like to say I used prolegemona correctly in the title but I kant. Here's the code:

#!/usr/bin/perl
use warnings;
use strict;
my $life = new life(20);
while(1)
{
$life.display();
}
class life
{
has Int $.count;
has Int $.dimension;
has Array of Int @.grid is dim ($.dimension, $.dimension);
method CREATE(Int $dimension)
{
$.count = 0;
$.dimension = $dimension;
loop (my $x = 0; $x < $dimenion; $x++)
{
loop (my $y = 0; $y < $dimension; $y++)
{
@.grid[$x][$y] = 0;
}
}
@.grid[$dimension / 2 - 1][$dimension / 2] = 1;
@.grid[$dimension / 2 - 1][$dimension / 2 + 1] = 1;
@.grid[$dimension / 2][$dimension / 2] = 1;
@.grid[$dimension / 2][$dimension / 2 - 1] = 1;
@.grid[$dimension / 2 + 1][$dimension / 2] = 1;
}
method calculate() is private
{
my @newgrid;
loop (my $x = 0; $x < .dimension; $x++)
{
loop (my $y = 0; $y < .dimension; $y++)
{
my $live = 0;
for ($x - 1, $y - 1, $x, $y - 1, $x + 1, $y - 1, $x - 1, $y, $
+x + 1,
$y, $x - 1, $y + 1, $x, $y + 1, $x + 1, $y + 1) -> ($nx, $ny
+)
{
next if 0 > $nx > .dimension || 0 > $ny > .dimension;
$live++ if @.grid[$nx][$ny] == 1;
}
$newgrid[$x][$y] = given @.grid[$x][$y]
{
when 0 { 1 if $live == 3};
when 1 { 1 if 1 < $live < 4 }:
} || 0;
}
}
@.grid = @newgrid;
}
method display
{
loop (my $x = 0; $x < $.dimension; $x++)
{
loop (my $y = 0; $y < $.dimension; $y++)
{
print $.grid[$x][$y] ? '+' : '.';
}
print "\n";
}
print "Turn $(++$.count), press enter for next turn, ctl-c to quit
+';
<STDIN>;
.calculate();
}
}