my $foo = an(5, '$foo'); #### annotated $foo = 5; #### annotated(); my $foo = Scalar::Annotated->new(0, '$foo'); $$foo = 5;