NAME
   Hash::Tally - Compute the tallies of hash values

SYNOPSIS
       use Hash::Tally qw( tally );

       my $data = {
           Shipping => {
               English => {
                    Canada         => 8,
                   'United States' => 13,
               },
               French => {
                    Canada         => 26,
                   'United States' => 3,
               },
           },
           Receiving => {
               English => 56,
               French  => {
                    Canada         => 12,
                   'United States' => 5,
               },
           },
       };

       tally( $data );

       # $data now has the following value:
       $data = {
           Shipping => {
               English => {
                    Canada         => 8,
                   'United States' => 13,
                    tally          => 21,
               },
               French => {
                    Canada         => 26,
                   'United States' => 3,
                    tally          => 29,
               },
               tally => {
                    Canada         => 34,
                   'United States' => 16,
                    tally          => 50,
               },
           },
           Receiving => {
               English => 56,
               French  => {
                    Canada         => 12,
                   'United States' => 5,
                    tally          => 17,
               },
               tally => 73,
           },
           tally => {
               English => 77,
               French  => {
                    Canada         => 38,
                   'United States' => 8,
                    tally          => 46,
               },
               tally => 123,
           },
       };

DESCRIPTION
 tally ( @data )
   A method designed to calculate the tallies of hashes. It was originally
   designed for reporting and statistical purposes.

AUTHOR
   Adam Paynter <[email protected]>

COPYRIGHT AND LICENSE
   Copyright 2006 by Adam Paynter

   This library is free software; you can redistribute it and/or modify it
   under the same terms as Perl itself.