I need previous keys to know what is I'm computing, so this is not a good solution, but yes a good way learning recursion algorithms & perl ;)
Thank you!