Something

sub handle_load {

#Clear the hashes before loading the new ones.

%auth_op = ();
%auth_hop = ();
%ignore = ();

open my $AUTH_OP, "<", "AUTH_HOSTS_OP" or die "Couldn't open auth file: $!\n";
while ( my $line = <$AUTH_OP> ) { chomp $line; $auth_op{$line} = 1; }
close($AUTH_OP);

#Half-Operators.
open my $AUTH_HOP, "<", "AUTH_HOSTS_HOP" or die "Couldn't open auth file: $!\n";
while ( my $line = <$AUTH_HOP> ) { chomp $line; $auth_hop{$line} = 2; }
close($AUTH_HOP);

#Ignore List.
open my $IGNORE, "<", "IGNORE" or die "Couldn't open auth file: $!\n";
while ( my $line = <$IGNORE> ) { chomp $line; $ignore{$line} = 0; }
close($IGNORE);
return;
}