thanks a lot, that's exactly the problem I was facing. fixed it now with the use of clone-any. here my final version:

#8. attempt Game of Life 79x39
#Needs Clone-Any
use strict;
use Clone::Any qw(clone);






 




my @wholepattern = (

['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','0','0','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','0','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','0','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','0','0','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','0','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','0','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','0','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','0','0','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','0','0','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.'],
['.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','
+.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.
+','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.'
+,'.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.','.',
+'.','.','.','.','.','.','.','.','.']


);


#new wholepattern2

my @neighbours2;

my @wholepattern2 = @{ clone(\@wholepattern) };
print "iterations: ";
my $z = <stdin>;
$z--;
my $t = 0;
my $row = ();
my $one = ();
my @neighbours = ();

print "t:$t";
print "\n";
$t++;

my $i=0;

foreach $row (@wholepattern) {

    my $j=0;

    foreach $one (@$row) {
        
        if ($wholepattern[$i][$j] eq '0') {
    
            print "*";
    
        } else {
    
            print ".";
        }

        $j++;

        if ($j == 78) {

            print "\n";    
        
        }

    }

    $i++;
}


print "\n";

select(undef, undef, undef, 1);


while ($t <= $z) {
    my $i=0;

    foreach $row (@wholepattern) {
    
        my $j=0;
        
        foreach $one (@$row) {

            my $a1 = $i - 1;
            my $a2 = $i;
            my $a3 = $i + 1;
            my $b1 = $j - 1;
            my $b2 = $j;
            my $b3 = $j + 1;
        
        
        
        
            if ($a1 == -1)
            {        
                my $a1 = 78;        
            }
        
            if ($a3 == 79)
            {            
                my $a3 = 0;        
            }
        
        
            if ($b1 == -1)
            {    
                my $b1 = 78;    
            }
        
            if ($b3 == 79)
            {
                my $b3 = 0;
            }
        
        
        
            if ($wholepattern[$a1][$b1] eq '0') 
                {
                    push (@neighbours, '0');
                }
            if ($wholepattern[$a1][$b2] eq '0') 
                {
                    push (@neighbours, '0');
                }
            if ($wholepattern[$a1][$b3] eq '0') 
                {
                    push (@neighbours, '0');
                }
            if ($wholepattern[$a2][$b1] eq '0') 
                {
                    push (@neighbours, '0');
                }
            #if ($wholepattern[$a2][$b2] eq '0') 
            #    {
            #        push (@neighbours, '0');
            #    }
            if ($wholepattern[$a2][$b3] eq '0') 
                {
                    push (@neighbours, '0');
                }
            if ($wholepattern[$a3][$b1] eq '0') 
                {
                    push (@neighbours, '0');
                }
            if ($wholepattern[$a3][$b2] eq '0') 
                {
                    push (@neighbours, '0');
                }
            if ($wholepattern[$a3][$b3] eq '0') 
                {
                    push (@neighbours, '0');
                }
            
            
            my $neighbours = @neighbours;
            
            
            if ($neighbours < 2) {
            
                $wholepattern2[$a2][$b2] = '.';
            
                }
            
            if ($neighbours == 2) {
            
                if ($wholepattern[$a2][$b2] eq '.') {

                $wholepattern2[$a2][$b2] = '.';

                }

                if ($wholepattern[$a2][$b2] eq '0') {

                $wholepattern2[$a2][$b2] = '0';
            
                }
                
                }
            
            if ($neighbours == 3) {
            
                $wholepattern2[$a2][$b2] = '0';
            
                }
            
            if ($neighbours > 3) {
            
                $wholepattern2[$a2][$b2] = '.';
            
                }
                
            @neighbours = (); 
            $neighbours = ();
    
    
            $j++;
    
            }
        $i++;

    }
    
    #displaying
    print "t:$t";
    print "\n";
    
    my $k=0;
    foreach $row (@wholepattern2) {
    
        my $l=0;
        
        foreach $one (@$row){
            
            if ($wholepattern2[$k][$l] eq '0') {
            
                #print $wholepattern2[$k][$l];
                print "*";
            }
            
            else {
            
                print ".";
            }
    
    
            $l++;
    
            if ($l == 78) {
    
                print "\n";    
    
            }
    
            }
            
        $k++;
    
    
    
    }
    
    print "\n";
    
    $t++;
    select(undef, undef, undef, 0.2);
    @wholepattern = ();
    @wholepattern = @{ clone(\@wholepattern2) };


    


}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.