I assume you're struggling to have $faclist{$line} not contain a previous entry.

Then you should be using delete as in:

delete $faclist{$line};
[download]