Select Code to Download

my $query = ":$name:$vorname:$plz:$tel:$tel49:";

my %query_for = (
    0 => "::",
...
    2 => "vorname IS \$name",
    ...
);

my %query_constuctor_for = (
  ...
...
  19 => sub { return ":$name/$vorname::$tel49:" },
  ...
);

my $query_maker = $query_constructor_for{$bitvector};
defined $query_maker or die "Combination invalid";
$query = $query_maker->()