Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm attempting to debug a program that I can not get to work. Basically, I have a list of integer values that I read into a hash. I need to output every integer between 1 and 5000 that are not in the hash. My problem arises when I attempt to check if a value exists in the hash. No matter what I do, the condition always seems to evaluate as false. I'm obviously doing something wrong, but I can not figure out what. Can anyone shed some light on the situation?

The code is below...
my %faclist; my $i; open(DATA, "AXP_FACS.DAT"); while(<DATA>){ my $line = $_; $faclist{$line} = ""; } close(DATA); for ($i=1;$i<5001;$i++){ if exists $faclist{$i}{#THIS IS WHERE THE PROBLEM IS print "$i\n"; } }