my $coderef = do { my $op = 'tag00'; sub { dofunc($op) } };