Select Code to Download

        while (@fetch = $sth1->fetchrow)
        {
...
      $vendor_sales{$vendor}{terminals}{$terminal_id}{refunds}   = $re
+funds;
      $vendor_sales{$vendor}{terminals}{$terminal_id}{count}   = $coun
+t;
     }

        'Book Shop' => {
                         '10' => {
...
                                        'terminal_name' => 'Credit Til
+l'
                                      }
                             }

[% FOREACH vendor IN vendor_sales %] 
               [% vendor.key %] : [% vendor.terminals.terminal_name %]
[% END %]