{
   my %template_var;

   my ($key,$val) = split '=', $linefromtemplate;
   $template_var{$key} = $val;
}

##</code><code>##

{
   package template_var;

   my ($key,$val) = split '=', $linefromtemplate;
no strict 'refs';
  $$key = $val;# left out symbolic dereference
use strict 'refs';
}