sub new {
   my $class = shift;
   my $id    = shift;
   my $self  = {
      _ID        => $id,
      _FINALIZED => 0,
      _EXPENSES  => [],
      _TOTAL     => undef,
      _COUNT     => undef,
   };
   return bless $self, $class;
}

##</code><code>##

$newexp->{_ID} = $#expenses + 1;

##</code><code>##

$newexp->{_ID} = scalar @expenses;

##</code><code>##

local $Data::Dumper::Indent = 3;

##</code><code>##

# open file
my $file = do {local $/; <REPORT>};

##</code><code>##

$self->{$hiddenkey} = shift if @_;