{
my @words;
my $file_in;
...