Select Code to Download

my $contition = $some_letter;

...
);
$dispatch{$condition}->();

my @dispatch = (
  sub { shift() eq 'a' } => sub { "do something with a" },
...
for (my $i; $i < @dispatch; $i+=2) {
  $dispatch[$i+1]->() if $dispatch[$i]->($variable);
}