use strict;
use ca;

$sandHeap = ca->new(5,1,20,'0.0','0','0.0');
print $sandHeap->{dim};

package ca;
use strict;

our $instability=4;

# Konstruktor

      sub new {
         my $class = shift;
         my $self = {};
         my @neighbourCells = {};
         bless ($self, $class);
         foreach (qw/n iniTime finTime rndInit useNorth useDiagnoal/ ){
                $self->set($_ => shift);
         }
         $self->set(neighbourCells => [@neighbourCells]);
         $self->addCells();
         $self->addCellsNeighbors();

         return $self;
        }

# Methoden um Zellen zur Liste, und NachbarZellen der Zellen hinzuzufügen

         sub addCells{
          my $self = shift; my $rnd=0; my $i=0;
                for($i=1; $i<=($self->{dim})*($self->{dim}); $i++){
                        if($self->{rndInit}){ $rnd = rand($ca::instability-1); }
                       push($self->{cellList}, Cell->new($rnd));
                }
        }

         sub addCellsNeighbors {
          my $self = shift;
                foreach($self->{cellList}) {
                        $_->addNeighbors($self->{dim},$self->{useNorth},$self->{useDiagonal});
                }
        }

package cell;

use ca;
use strict;

        our $cellCount=0;

         #Konstruktor
      sub new {
         my $class = shift;
         my $self = {};
         my @neighbourCells = {};
         $cell::cellCount = $cell::cellCount + 1;
         my $index = $cell::cellCount;
         bless ($self, $class);
         foreach (qw/value/){ $self->set($_ => shift); }
                $self->set(valueAfter => 0);
                $self->set(index => shift);
                $self->set(neighbourCells => [@neighbourCells]);
         return $self;
        }

sub new {
    my $class = shift;
    my @values = @_; # den ganzen rest einlesen
    my $self = bless({},$class);
    $self->{'key'} = \@values;
}

# ... somewhere else
use Data::Dumper qw/Dumper/;
my $ca = CA->new(1,2,3);
print Dumper $ca->{key};

foreach (qw/value/){ $self->set($_ => shift); }

$self->set(value=>shift(@_));