From the documentation:

[%a = 1%]
[%b = ''%]

[%PERL%]
my $test = "[%a%]";
$test += 1;
$stash->set('b', $test);
[%END%]
[download]

update: added code.