my %line_count_by_length;
while (<DATA>) {
    my $line_length = length($_);
    $line_count_by_length{$line_length}++;
}