# again, untested, just for demonstration

my $code = '';
for (@tokens) {
   my ($type, $source, @params) = @$_;
   if ($type eq 'VAR') {
       $code .= $source;
   }
   elsif ($type eq 'DOT') {
       $code .= '->';
   }
   elsif ($type eq 'METHOD') {
   ....
}

my $generator = eval "sub { $code }";
die if $@;

for (@rows) {
   ...
   print $generator->();
   ...
}