10,25,50… sequence fun

In: perl