Sowas kannst du, wenn du OOP programmierst, immer nur über eine Funktion machen. In Perl kannst du es mit lvalue probieren, wenn du das eventuelle Risiko eingehen kannst, dass sich dort vielleicht die Syntax o.ä. ändert.