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";
        }
}
[download]