sub acct_data { my ($self, $type) = @_; die "Invalid type, $type does not exist." unless defined $headings{$type}; return $self->{data}{$type} if defined $self->{data}; return $self->{data}{$type} = { get_hash( file => data_file($self->{file}, "$type.txt"), headings => $headings{$type}, ) } }