So if I put in while (<$fh>) it breaks my my $guess = <> further down in my code. I made that my $guess = <STDIN> and it works fine.
both while(<>){..} and $guess = <> reads from STDIN. Atleast, that is obvious from your code. So, to make while(<fh>){.. work, you have to do this:
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>);
...
Please, pay attention to the DIRECTION of the "arrow"
- ">" is 'Writing to' ( OUTPUT )
-
- "<" is 'Read from' ( INPUT )
NOTE: Like I mentioned previously, you didn't close the your filehandle!!!