Select Code to Download

package Organism;

...
}

1;

for my $c (keys %{ $cells }) {

while ( my ($c) = each %{ $cells } ) {

sub tick {
   my $self  = shift;
...
          + exists($cells->{pack 'i2', $x2, $y2}) == 3 ) } @zcells
   } keys %{$cells};
}

sub tick {
   my $self  = shift;
...
   } keys %{$cells} } = undef;
   $self->{Cells} = \%newcells;
}

my @zcells = (
   ($k1 = pack 'i2', $x1, $y1) x !exists($cells->{$k1}),
...
   ($k6 = pack 'i2', $x2, $y1) x !exists($cells->{$k6}),
   ($k7 = pack 'i2', $x2, $y0) x !exists($cells->{$k7}),
   ($k8 = pack 'i2', $x2, $y2) x !exists($cells->{$k8})  );

my @zcells = grep( !exists($cells->{$_}),
   pack('i2', $x1, $y1),
...
   pack('i2', $x2, $y1),
   pack('i2', $x2, $y0),
   pack('i2', $x2, $y2) );

sub tick {
   my $self  = shift;
...
   }
   $self->{Cells} = \%newcells;
}