use strict;
use warnings;

my %histogram;
my %records_of_length;
while (<DATA>) {
    my $record_length = length;
    my $initial_char  = substr($_, 0, 1);
    $records_of_length{$record_length}++;
    $histogram{$record_length}{$initial_char}++;
}

# Review how many distinct record lengths were seen.
# If all records of given length start with same char,
# rejoice!
for my $rec_len (sort {$a <=> $b} keys %histogram) {
    print "Saw $records_of_length{$rec_len} records";
    print " with length $rec_len:\n";
    for my $char (sort keys %{$histogram{$rec_len}}) {
        print "\t$char: ";
        print $histogram{$rec_len}{$char}, "\n";
    }
}
__DATA__
C4498 John__ Smith___
I0023 widget 004   4.95
I0869 foozle 001  29.50
I7765 gadget 002 340.00
C5678 Mary__  Doe____
I9999 misc__ 003   6.25