for $c (0..255)
{
	for $t (1..254)
	{
	$a= "192.168.".$c.".".$t;
	push (@a , $a);
	}
}
$"= "\n";
print "@a";