OK, but how can that subroutine be used to store an array as an object property? Also I think I've found a solution, how about this:

sub AB {
    my $self =shift;
    if (@_) { @{ $self->{AB} } = @_ }
    return @{ $self->{AB} };
}
[download]

Is there a better way to store data per object?