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;