sub naja {
    my $self = shift;

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