while (<IN>) {
    chomp;
    printf "%4.2f $_\n", score (\%rows, \%cols,$_)
      if length >=$MIN && not /[A-Z]/;
}