Another variation is to use a HoA (Hash of Array) to store the data. Then cycle through the sorted keys and either
a) print sum of array values for totals, or
b) print the array values themselves

#!/usr/bin/perl -w
use strict;
use List::Util qw(sum);

my %Alpha2Number;  #Hash of Array  def=>[406744,107297]

while (<DATA>)
{
    chomp;
    my($number, $ltrs) = split(',',$_);
    push @{$Alpha2Number{$ltrs}},$number;
}

print "Totals:\n";
foreach my $alpha (sort keys %Alpha2Number)
{
   print sum (@{$Alpha2Number{$alpha}}), ",$alpha\n";
}

print "\nSorted Data:\n";
foreach my $alpha (sort keys %Alpha2Number)
{
   print "$_,$alpha\n" for @{$Alpha2Number{$alpha}};

   #use this line if you want also to sort the numbers
   #print "$_,$alpha\n" for sort{$a<=>$b} @{$Alpha2Number{$alpha}};
}

=PRINTS
Totals:
1918297,abc
514041,def
382404,mps
335563,rxwz

Sorted Data:
1208782,abc
367455,abc
226159,abc
115901,abc
406744,def
107297,def
283191,mps
99213,mps
197688,rxwz
137875,rxwz

=cut


__DATA__
1208782,abc
406744,def
367455,abc
283191,mps
226159,abc
197688,rxwz
137875,rxwz
115901,abc
107297,def
99213,mps

[download]

In reply to Re^3: Alphanumeric sort by Marshall
in thread Alphanumeric sort by zac_carl

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.