perl Algorithm-Annotate