while(<DATA>){
    chomp;
    my $line = $_;
    $faclist{$line} = "";
}

##</code><code>##

if exists $faclist{$i}{#THIS IS WHERE THE PROBLEM IS

##</code><code>##

if ( exists $faclist{$i} ) {#THIS IS WHERE THE PROBLEM IS