This is *not* a trivial problem. If you know Perl well, please take a bit of time to look at this. I have the following code in a file Foo.pm package Foo; my @xyzzy = (1,2,3); sub new { my $self = bless {}, shift; $self->ini('xyzzy'); print \@xyzzy, ' ', scalar @xyzzy; print $self->{xyzzy}, ' ', scalar @{$self->{xyzzy}};
