You would have to show more of what you're trying to do. It's difficult to nearly impossible to work out where you're going wrong if you showing errors without the lines where they're occurring.
From the error, it seems as though you haven't declared $one_ref in the main program or the method, whichever it happens to be. Somewhere you need a my ($one_ref);. But that's just a guess.
Put an update at the end of the original question, with the code attached as it stands now. PerlMonks allows questions to change dynamically.
A Monk aims to give answers to those who have none, and to learn from those who know more.