# hash...                             # array...

while (<HUM>) {                       while (<HUM>) {
  $hash{key_part($_)}++ ;               push @array, key_part($_) ;
} ;                                   } ;

                                      my $p = '' ;
                                      my $c = 1 ;

foreach (sort keys %hash) {           foreach (sort @array) {
                                        if ($p ne $_) {
  print "$_\: $hash{$_}\n" ;              print "$p\: $c\n" ;
                                          $p = $_ ;
                                          $c = 1 ;
                                        }
                                        else {
                                          ++$c ;
                                        } ;
} ;                                   } ;
                                      print  "$p\: $c\n" ;