perl code

I’m working on a webform to compare the tax impacts of various levels of 403(b) deductions. And I can tell its been some time since I wrote any perl or even any web forms. But, I’m using some cool data structures:

my %monthly = (
        single  => [ 26767, 12392, 5708, 2567,  808, 221, 0 ],
        married => [ 27175, 15463, 9838, 5396, 1858, 667, 0 ],
        );

Hopefully I’ll get this figured out in the next couple nights.