$data->{username} = ...;

...
$template->process(\*DATA, $data, $filename)

...

\issuedby{[% username %]}