my @widget_order = qw{blank abc xyz};
my %widget_data = (
    blank => { opts => ['-text', ''] },
    abc => { opts => ['-text', 'Apple Banana Cherry'] },
    xyz => { opts => ['-text', 'X Y Z'] },
);

for my $widget (@widget_order) {
    $widget_data{$widget}{object}
        = $parent->Widget(@common_options,
              $widget_data{$widget}{opts},
          )->geo_mgr(@geo_mgr_opts);
}