#!/usr/bin/perl

use strict;
use warnings;

package PackClass;

sub new {
    my $self = {};

    $self->{_SomeOtherAttributeName} = 42;
    $self->{_RequiredArrayAttributeName} = \("asd", "fgh"); #ARRAYREF

    bless($self);
    return $self;
}

sub setPack {
    my $self = shift;
    my $idxPosition = shift;
    if (@_) { @{$self->{_RequiredArrayAttributeName}}[$idxPosition] = shift }
    return @{$self->{_RequiredArrayAttributeName}}[$idxPosition];
}

sub getPack {
    my $self = shift;
    return @{$self->{_RequiredArrayAttributeName}};
}

sub getPackAlternateImplementation {  #ARRAYREF
    my $self = shift;
    return $self->{_RequiredArrayAttributeName};
}

1;