my $ip = new Net::IP($newIPRange) ; 
do{ 
	print $ip->ip();	 
}while(++$ip);

#!/usr/bin/perl  
 
use warnings;  
use strict;  
 
use Net::IPTrie;  
my $tr = Net::IPTrie->new(version=>6); # IPv6  
 
my %lexoAddHash = (); 
 
open LEXO, "<", "lexo.txt" or die "Could not open file lexo.txt in read mode: $!\n";  
my @lexo_content = <LEXO>;  
foreach my $line (@lexo_content) 
{ 
	chomp $line; 
	if($line =~ m/address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/){  
		my $n = $tr->add(address=>"$1", prefix=>"$2", data=>"$3");  
		$lexoAddHash{$n->address} = $n->address;		 
	} 
} 
close LEXO;  
 
open IPV6, "<", "IPv6.txt" or die "Could not open file IPv6.txt in read mode: $!\n";  
my @ipv6_content = <IPV6>;  
foreach my $ip (@ipv6_content) {  
	chomp $ip;  
	foreach my $line (@lexo_content) { # ........think the problem is here 		 
	my $a = $tr->add(address=>"$ip", prefix=>'128', data=>"$data");;  
	if (defined $a->parent && defined $lexoAddHash{$a->parent->address}) {  
		print "\$a is ". $a->address . " and parent of \$a is ". $a->parent->address ." and data of parents is: ". $a->parent->data. "\n";  
	}  
      }  
    }   
}  
close IPV6;

  
 
#!/usr/bin/perl   
 
use warnings;  
use strict;   
 
use Net::IPTrie;  
my $tr = Net::IPTrie->new(version=>6); # IPv6   
 
my %lexoAddHash = ();  
my @lexoDataHash = ();  
open LEXO, "<", "lexo.txt" or die "Could not open file lexo.txt in read mode: $!\n";  
my @lexo_content = <LEXO>;  
foreach my $line (@lexo_content)  
{  
 chomp $line;  
 if($line =~ m/address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/){  
  my $n = $tr->add(address=>"$1", prefix=>"$2", data=>"$3");  
  $lexoAddHash{$n->address} = $n->address;  
  push(@lexoDataHash,$3); 
 }  
}  
close LEXO;   
 
   
 
open IPV6, "<", "IPv6.txt" or die "Could not open file IPv6.txt in read mode: $!\n";  
my @ipv6_content = <IPV6>;  
foreach my $ip (@ipv6_content) {  
 chomp $ip;  
 foreach my $line (@lexo_content) { # ........think the problem is here    
    foreach my $data (@lexoDataHash){   
  my $a = $tr->add(address=>"$ip", prefix=>'128', data=>"$data");  
  if (defined $a->parent && defined $lexoAddHash{$a->parent->address}) {  
   print "\$a is ". $a->address . " and parent of \$a is ". $a->parent->address ." and data of parents is: ". $a->parent->data. "\n";  
  }  
     } 
   
 }  
}   
 
close IPV6;

#!/usr/bin/perl 
use warnings;  
use strict; 
 
use Data::Dumper; 
use Net::IPTrie; 
my $tr = Net::IPTrie->new(version=>6); # IPv6 
my %lexoAddHash = (); 
my %lexoDataHash = (); 
 
my @lexoDataHash = (); 
 
 
open LEXO, "<", "lexo.txt" or die "Could not open file lexo.txt in read mode: $!\n"; 
my @lexo_content = <LEXO>; 
 
foreach my $line (@lexo_content) 
{ 
	chomp $line; 
	if($line =~ m/address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/){ 
		my $n = $tr->add(address=>"$1", prefix=>"$2", data=>"$3"); 
		$lexoAddHash{$n->address} = $n->address; 
		push(@lexoDataHash,$3); 
		#$lexoDataHash{$n->address} = $3; 
	} 
} 
close LEXO; 
 
print "Done 1\n"; 
 
 
open IPV6, "<", "IPv6.txt" or die "Could not open file IPv6.txt in read mode: $!\n"; 
while (<IPV6>) { 
 	chomp $_; 
  	for (my $i = 0 ; $i <= scalar @lexoDataHash ; $i++ ){ 
  	    if(defined $lexoDataHash[$i]){ 
     		my $a = $tr->add(address => "$_" , prefix => '128', data => "$lexoDataHash[$i]");				 
		if (defined $a->parent && defined $lexoAddHash{$a->parent->address} ) { 
		 	print "\$a is ". $a->address . " and parent of \$a is ". $a->parent->address ." and data of parents is: ". $a->parent->data. "\n";			 
			splice(@lexoDataHash, $i, 1); 
			last; 
		}	   
	    } 
 	} 
} 
close IPV6;