Select Code to Download

my @list = ('1','val','2','val2','1','val3');
my $self = { _subfields => [@list] };
...

# waa-la:
print $_,"\n" foreach (@subs);

my $aryref = $self->{_subfields};