Select Code to Download

while (1)
{
...
        next;
    }
}

my %dispatch_table = (
    a1 => \&do_a1,
...
    my $function = $dispatch_table{$value} || next;
    $function->();
}