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