my $result0 = '';
$result = \$result0;
$$result .= 'text';