Having followed your advice, my simple object is now working. However, I don't understand why the code works as it is.

sub new
{
    my ($class, %attr) = @_;
    my $ref = \%attr;
    my @history;
    $ref->{history} = \@history;
}
[download]

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

My problem comes to when I want to see the contents of $self->{history}, I have to use 3 loops, when it's only a 2-dimensional array.

sub statement
{
    #iterate through  @{$self->{history}} in 2 dimensions
    my $self = shift;
    
    for my $index ( 0..$#{ $self->{history} } ) 
    {
         for my $j (0..$#{$self->{history}[$index] } )
         
         {
             for (0..$#{$self->{history}[$index][$j] } )
             {
                 print "$self->{history}[$index][$j][$_]\t";
             }
             print "\n";     
         }
    }
}
[download]

If anyone could explain to me why the need for 3 loops (or show me where my de-referencing went awfully wrong), it would be greatly appreciated.