my $z1 = long 256 * random(10); my $z2 = long 256 * random(10); print intersect $z1, $z2;