my $self = { array => \@array };
# oder deine loesung, mit einem strich weniger:
my $self;
$self->{array} = \@array;