my $ip = new NetAddr::IP($address_given);
 my %nets;
 
 map { $nets{$_}= new NetAddr::IP($_),} qw( 192.168.0.0/29 10.10.10.0/24);
 foreach  my $k (keys %nets){

        if ($ip->within($nets{$k})) {