Select Code to Download

my $key;
while (<IN>) {
...
    }
  }
}

my $key;
while (<IN>) {
...
  }
  delete $hash{$key} if /no ip address/;
}