Select Code to Download

my $ip   = '24.56.102.10';
my %ours = (
...
} else {
   print "Its not there\n";
}

   $ours{$v} = $k while ( my($k, $v) = each %ours);

#... yada yada ...
my %ips = (
...
      }
   }
}