in reply to Help regarding an alogrithm

I have tried various ways to achieve this with but no luck,vexed of it.I

Prove it

In Section Seekers of Perl Wisdom