sub new {
    my ($class) = @_;
    my @obj;
    @obj[ACCOUNT, NAME, BALANCE] = (undef, undef, 0);
    return bless( \@obj, $class);
}