Select Code to Download

$choices = ",1,2,3,4,5,6,";

$data{$user_type}{$user_company}{$user_lname}{'attribute'}

$data{$user_type}{$user_company$}{$user_lname}{'choice_list'} = [ @spl
+it_list ];

$choices = ",1,2,3,4,5,6,";

...
    data => \%data,
};
$template->process($template_file, $vars);

Template output - <br>Choices are:<br>
[% FOREACH type IN data.keys.sort %]
...
          [% END %]
     [% END %]
[% END %]

Perl script output - 
<br>choices list before regex = ,1,2,3,4,5,6,
...
5<br>
6<br>
<br>