sub new
{
        my $package = shift;
        my $self = bless{ testarray => undef }, $package;
        return $self;
}

sub testfunc
{
        my $self = shift;
        my $var = shift;

        my @testarray = $self->testarray();

        push(@testarray, $var);

        $self->testarray(@testarray);

        for(my $i = 0; $i < scalar(@testarray); $i++)
        {
                warn $i . "=" . $testarray[$i];
        }
}

sub testarray {
  my $self = shift;
  if (@_) {
    $self->{"testarray"} = shift;
  }
  return $self->{"testarray"};
}