my ($words_file) = @ARGV;
open( my $fh, "<", $words_file ) or die "can't open file: $!";
my @words;
while (<$fh>) {
  ...
}

## later you use
chomp(my $guess = <STDIN>);
...