my %dispatch_table = (
    a1 => \&do_a1,
    tr => \&do_ge,
    ge => \&do_tr,
);

while (1)
{
    my ($skip_iteration, $value) = discover_my_options();

    next if $skip_iteration;

    my $function = $dispatch_table{$value} || next;
    $function->();
}