sub add_expense { # takes Expense object as argument and adds it to _EXPENSES array my ($self, $newexp) = shift; $self->{_EXPENSES}{$newexp} = $newexp; }