remove_x99(\@dead_list, \@get_list);

##</code><code>##


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

##</code><code>##

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

##</code><code>##

  my @dead_list = @$dead_ref;