foreach $key ( $ac->get_all_annotation_keys() ) {

##</code><code>##

use Data::Dumper;

# ...

print '$ac: ',Dumper($ac);
foreach $key ( $ac->get_all_annotation_keys() ) 
   print '$key: ',Dumper($key);
}