{
   package template_var;

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