create table acct_year (    -- G/L balances for a year
   gl_acct   varchar,
   year      int,
   bal_0     numeric(12,4), -- ending balances for qtrs
   bal_1     numeric(12,4),
   bal_2     numeric(12,4),
   bal_3     numeric(12,4)
);

##</code><code>##

my $acct_year = { 
        gl_acct => '100',
        year => 2000,
        bal => [ 9100.03, 783.87, 6339.26, 12.06 ],
};