sub remove_x99 { my $dead_list_ref = shift; my $get_list_ref = shift; my %lookup = map {$_ => 1} @$get_lisr_ref; # ...