use DBI;
use HTML::Template;
use Data::Dumper;

my $dbh = DBI->connect(
   qw(DBI:vendor:database:host user pass),
   {RaiseError => 1},
);

my $username = 'jeffa';
my $branches = $dbh->selectall_arrayref(
   'SELECT branches FROM users WHERE username = ?',
   {Slice => {}}, $username,
);

warn Dumper $branches;

my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(branches => $branches);

print $tmpl->output;

__DATA__
<tmpl_loop branches>
  <tmpl_var branches>
</tmpl_loop>