while(<IN1>)        {
chomp;    
    if ($_=~ m/\>/)        {
        }
    elsif ($_!~ m/\>/)        {
    push @lengths, length($_);
        }
}