Select Code to Download

my @dispatch = (
  [ sub { shift =~ m/test/ } => sub { action } ],
...
    last;
  }
}

my @dispatch = (
  ... same as above ...
...
$dispatch[                                    # In the table...
  firstidx { $_->[0]($test_value) } @dispatch # do a lookup...
]->[1]();                                     # and take action.

my @dispatch = (
  ...same as above ...
);
( first { $_->[0]($test_value) } @dispatch )->[1]();