open my $fh, '<:crlf', 'csw.txt' or die $!; chomp (my @words = <$fh>); close $fh;