use Template;

my $tt = Template->new({EVAL_PERL => 1});  

my $vars = { x => [1,2,3] }; 
my $text = q{
[%PERL%] 
use Data::Dumper;  print STDOUT Dumper $stash 
[%END%]
}; 
$tt->process(\$text,$vars);