Select Code to Download

sub new {
   my $class = shift;
...
   };
   return bless $self, $class;
}

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

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

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

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

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