Select Code to Download

sub new
{
...
    my @history;
    $ref->{history} = \@history;
}

sub trans
{
  my @done = ["$time[5]-$time[4]-$time[3]", $type, $amount];
  push @{$self->{history}}, \@done;
}

sub statement
{
...
         }
    }
}