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;