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