while (1)
{
    my %options = discover_my_options();

    next unless $options{ma} && $options{sy};

    if ($options{a1})
    {
        do_a1();
        next;
    }

    if ($options{tr})
    {
        do_tr();
        next;
    }

    if ($options{ge})
    {
        do_ge();
        next;
    }
}