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