my @array;

foreach my $server (@{$servers->{server}})
{
    my $node  = $server->{Node}    . "\n";
    my $lanip = $server->{LanIP}   . "\n";
    my $mask  = $server->{Netmask} . "\n";

    substr($lanip, 11, 3) = "0";
    push(@array, $lanip) if ! $seen{$lanip}++;
}

print "@array\n";