Perhaps there is a different way to achieve what I am trying to do?

Hi,

Maybe you can use a dictionary of types?

my %type;
$type{ENUM} = 9;  # :O ?? ;)
$type{ULONG} = 23;
$type{IdKind} = [ $type{ULONG}, "value", undef ];
$type{AutoIdKind} = [ $type{ENUM}, "AutoidKind", [ "SEQUENTIAL", "HASH
+" ]];

my @annotations = (
 [ id => $type{IdKind}, ],
 [ autoid => $type{AutoIdKind}, [ $type{AutoIdKind}, value => 'HASH' ]
+],
);
dd \%type, \@annotations;
__END__
[download]

???

AddAnnotation( autoid => Type('AutoIdKind'), [ Type('AutoIdKind'), val
+ue => 'HASH' ] );
[download]