while (<IN1>)
{
    chomp;
    push @lengths, length $_ unless />/;
}