Select Code to Download

remove_x99(\@dead_list, \@get_list);

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

sub remove_x99 {
  my $dead_ref = shift;
  my @dead-list = @$dead-ref;
  #...

  my @dead_list = @$dead_ref;