my $code=sub{print "hi\n";}; 
&{$code};

##</code><code>##

my $var='hi'; 
my $ref=\$var; 
${$ref}='there'; 
print "$var\n"; 

##</code><code>##

  if ( $tkxfsr->{after}{$afterid}{sub}) { 
      print 'sub:'.$tkxfsr->{after}{$afterid}{sub}."\n";
      &{$tkxfsr->{after}{$afterid}{sub}}(); 
      &{$tkxfsr->{after}{$afterid}{sub}};
      }

##</code><code>##

encapulated sub=0
SCMD 1527954135_123_c1 hi
LIST 1527954135_123_c1 hi 1----------
LIST 1527954135_123_c1 hi 2----------
LIST 1527954135_123_c1 hi 3----------
sub:CODE(0x9cdda24)
LIST 1527954135_123_c1 hi 4----------
LIST 1527954135_123_c1 hi 5----------