my $a = sub { return $_[0] + $_[1]; };
print $a->(3, 5);

##</code><code>##

my $code = 'return $_[0] + $_[1];'
my $a = eval "sub { $code }";
print $a->(3, 5);