withouth using modules something like this?
Gert 
#!/usr/bin/perl -w
use diagnostics;
use strict;

my $sum0 = 0;
my $sum1 = 0;

printf "%-9s\t%-35s\t%8s\t%14s\n", "Login ID", "Application", "CPU Min
+utes",
  "Percent of Total";
print "-" x 88 . "\n";

while (<DATA>) {
    tr/%//d;
    chomp;
    next if /^Login/;
    my @F = split /,/, $_;

    $sum0 += $F[2];
    $sum1 += $F[3];

    printf "%-9s\t%-35s\t%5s\t\t%4.1f\n", "$F[0]", "$F[1]", "$sum0", "
+$sum1";

}

__DATA__
Login ID,Application,CPU Minutes,Percent of Total
s2pe,CTI Production ,8455,21.7%
sybprd01,OMS,5326,13.7%
pctip01,CTI,5098,13.1%
lxsadr54,CTI,1742,4.5%
pipmp01,SSG-IPM,1742,4.5%
maestro,SSG-RAC-Maestro ,1020,2.6%
f2pa,"DB2DARI  ""stored procedures"" prod",836,2.1%
pomgp01,SSG-PMD-Omegamon,56,0.1%
pptip01,PTI - Private Client Services,16,0.0%
pbmwp01,BMW,3,0.0%
s2pv,Merva,1,0.0%

[download]

In reply to Re^3: Accumulating Column Total for a Particular Key by GertMT
in thread Accumulating Column Total for a Particular Key by GeneV1

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.