sub ...1...
my @daten;
...
$daten[1] = 'Text 001';
$daten[2] = 'Text 002';
...

sub naja {
    my $self = shift;

    $self->{myarrayref} = [qw/1 2 3 q w e/];
} # /naja

sub get_ding {
    my $self = shift;
    unless( exists $self->{'__DING'} ) {
        # erstelle es
    }
    return $self->{'__DING'};
} # /get_ding

sub set_ding {
    my $self = shift;
    my $array_ref = shift;
    $self->{'__DING'} = $array_ref;
} # /set_ding

#!/usr/bin/perl
# vi:ts=4 sw=4 et:

package ups;
use strict;
use warnings;

sub new {
  my $class = shift;
  my %parms = @_;
  my $self = []; # array-ref

  push @$self, qw( abc def 123 456 );

  bless $self, $class;
  return $self;
}

sub print_content {
  my $self = shift;
  my @args = @_;
 
  for ( @$self ) {
    print $_, $/;
  }
}

package main;

my $a = ups->new();

$a->print_content();

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

package ups;

{  ### CLOSURE
    my @daten = (); # @daten ist nur in den Methoden bekannt, die 
                           # in diesem Block definiert werden.

    sub fill_data {
        @daten = qw( a b c 12 3 );
    }

    sub print_data {
        for ( @daten ) {
            print $_, $/;
        }
    }
}

sub new {
    my $class = shift;
    my %parms = @_;
    my $self = {};

    bless $self, $class;
    return $self;
}

package main;

my $obj = ups->new();

$obj->fill_data();
$obj->print_data();

sub test{
    my @array = (1..10);
    # mach was mit @array
}

my $arref = test();

sub test{
    my @array = (1..10);
    return \@array;
}