$pdf->_buildNameTable(1);
my $properties = $pdf->{Names}->{1};

use Data::Dumper;
print Dumper($properties);

__END_-
$VAR1 = {
          'TT2' => bless( {
                            'gennum' => '0',
                            'value' => '39',
                            'type' => 'reference',
                            'objnum' => '8'
                          }, 'CAM::PDF::Node' ),
          'TT0' => bless( {
                            'gennum' => '0',
                            'value' => '22',
                            'type' => 'reference',
                            'objnum' => '8'
                          }, 'CAM::PDF::Node' ),
          'TT1' => bless( {
                            'gennum' => '0',
                            'value' => '32',
                            'type' => 'reference',
                            'objnum' => '8'
                          }, 'CAM::PDF::Node' )
        };