system("clear");
use Geo::IPfree;
use warnings;

@a1 = qw(192.168.32.121 200.293.12.12);
@code = [0];
@name = [0];
print "@a1, \n";
print "$a1[1] \n";

$num = scalar(@a1);
print "$num \n"; #value is 2
my $geo = Geo::IPfree->new;

for($i=0; $i<$num; $i++){
my ($code[i], $name[i]) = $geo->LookUp(@a[i]);
#$code[i] = $a[i]
print ("$code[i] - $name[i] \n");
print "@code \n";
}