my $dbh = DBI->connect( ... );

my $items = $dbh->selectall_arrayref(q{
    select user
    from logs
    where user not like 'adm%'
}, {Slice=>{}});

my $template = Template->new or die Template->error;
$template->process(\*DATA, {items => $items}) or die $template->error;

__DATA__
[% FOREACH item = items %]
   [% item.user %]
[% END %]