while (my $lines  = <FIN>) {
   chomp $sword;