get '/partners' => sub {
    my $dbh = get_db_connection();
    my $sth = $dbh->prepare("SELECT TPID,
                                    TPCOMPNAME,
                                    TPTYPE
                            FROM TRADINGPARTNERPROFILE
                            ORDER BY TPID
                            LIMIT 2");
    $sth->execute;
    my $partners = $sth->fetchall_hashref('TPID');
    my $dump = Dumper($partners);
    $dbh->disconnect;

    template 'show_partners.tt', {
                'dumper'   => $dump,
                'partners' => $partners,
    };

};\
##</code><code>##

<div>
  <pre><% dumper %></pre>
  <% FOREACH partner IN partners.keys %>
    Partner: <% partners.$partner.TPCOMPNAME %> <% partners.$partner.TPTYPE %><br>
  <% END %>
</div>

##</code><code>##

<div>
  <pre>$VAR1 = {
          'AB DISTRIBUTING INC.' => {
                                      'TPTYPE' => '1',
                                      'TPID' => 'AB DISTRIBUTING INC.',
                                      'TPCOMPNAME' => 'AB Distributing Inc.'
                                    },
          'A.T. CROSS ' => {
                             'TPTYPE' => '1',
                             'TPID' => 'A.T. CROSS ',
                             'TPCOMPNAME' => 'A.T. Cross '
                           }
        };
</pre>
  
    Partner:  <br>
  
</div>