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

sub testmethod {
        my ( $self, $var ) = @_;

        my @testarray = @{ $self->testarray }; # dereferenzieren

        push(@testarray, $var);

        $self->testarray( [ @testarray ] ); # referenzieren

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