Hi, Two things :

1. What is it meant to do?
2. What is the output in both versions of ActivePerl?

You might also put the Perl code in 'code' tags - See this node for guidance and this node for information on linking to other resources.

Good luck!