use vars qw/$mw $col @row/;

@row = (
    {
        parent_frame => $mw,
        label_width => 12, entry_width => 10,
        label_1 => 'Alpha 1',
        label_2 => 'Bravo 2',
    },
    {
        parent_frame => $mw,
        label_width => 12, entry_width => 10,
        label_1 => 'Charlie 3',
        label_2 => 'Delta 4',
        label_3 => 'Echo 5',
        label_4 => 'Foxtrot 6',
    },
    {
        parent_frame => $mw,
        label_width => 12, entry_width => 10,
        label_1 => 'Hotel 7',
        label_2 => 'India 8',
        label_3 => 'Juliet 9',
        label_4 => 'Kilo A',
    },
);

# and then later:
mk_entrybox_row($_) for @row;
[download]

Oh, by the way, i personally consider it bad style (or false laziness) to wrap your entire writeup in code tags. Try to only use code tags for code (sometimes output) and use <p> tags to separate your paragraphs. See Perl Monks Approved HTML tags for more info.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)