...or, since you ask for with borders (presumably to make it look like directly using your db's output capabilities), print your headers and initial set of borders outside the loop, and modify GrandFather's printf slightly (to provide the column-separating border, as follows:

use strict;
use warnings;

print " Co.ID \t|\tNAME\n";
print "-------\t|------------------------\n";
my @rows = (
    '16444 3M Singapore',
    '10167 ABB Schweiz (CHHOS) - SAP',
    '13916 ABB Turbo Systems AG - LVS',
    '10163 ABB Turbo Systems AG - SAP',
    '8683 ABC',
    );

printf "%6d\t|\t%s\n", split ' ', $_, 2 for @rows;

[download]

OUTPUT:

 Co.ID  |       NAME
------- |------------------------
 16444  |       3M Singapore
 10167  |       ABB Schweiz (CHHOS) - SAP
 13916  |       ABB Turbo Systems AG - LVS
 10163  |       ABB Turbo Systems AG - SAP
  8683  |       ABC

Minor Note: Since laziness is a virtue, check on the string repetition operator (for example, p25 of "Learning Perl," O'Reilly, Randal L. Schwartz & Tom Phoenix, which should be on your bookshelf) for a way to get the multiple "-"s with fewer keystrokes.

In reply to Re^4: Formatting of printed SQL Query output by ww
in thread Formatting of printed SQL Query output by vic07

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.