my $sql = <<__END_SQL__; SELECT branches.id AS value ,branches.name AS branch FROM branches ,user_branch_xref WHERE user_branch_xref.user = ? AND user_branch_xref.branch = branches.id __END_SQL__ my $sth = $dbh->prepare_cached( $sql ) or die $DBI::errstr; $sth->execute( $user ) or die $DBI::errstr; my $template = HTML::Template -> new( filename => "../xm_dialogs/editmenu.tmpl", ); $template->param( branches => $sth->fetchall_arrayref( {} ), );