# why evaluate true/false?
#while (my $line = <FH>) {

# defined() is enough:
while(defined( my $line = <FH> ) ){

#---
# why retrieve value und evaluate true/false?
if (!$referers{$2}) {
# when exists() can do thie way faster
if( not exists $referers{$2} ){