my %subs =
  (
   join_index =>
        sub {
            my $joined = '#' . join('#', @Array) . '#';
            return (index($joined, '#TEST#') >= 0) ? 1 : 0;
        },
        
   grep_block =>
        sub {
            GREP: {
                grep { $_ eq TEST and next GREP } @Array;
                return;
            } continue {
                return 1;
           }
        },
... etc.