my $aref = $obj->answer->[0]->ptrdname->label;

##</code><code>##

my $aref = $obj->answer->[0]->ptrdname->label->[1];